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1.0  INTRODUCTION 


1.1  ABSTRACT 

SCHEDULE  is  an  Interactive  computer  program  which  serves  as  a 
management  tool  hy  helping  t*  organize  project  schedule 
Information.  It  enables  the  manager  to  maintain  a master  file  of 
schedule  information  on  one  or  many  projects  from  which  reports 
may  be  prepared  that  display  the  most  recently  updated  schedule 
status.  The  creative  user  can  use  SCHEDULE  to  "play"  with  the 
data  and  prepare  alternative  schedules  showing  the  Impact  of 
delays  or  changes  on  a project. 


1.2  LANGUAGE 

With  the  exception  of  one  subroutine  SCHEDULE  Is  written  in 
PL/I.  The  exception  to  this  is  the  graphics  portion  of  the 
program  which  Is  a combination  of  FORTRAN  IV  and  TEKTRONIX 
Advanced  Graphics,  Release  3.  Any  later  release  of  the  TEKTRONIX 
graphics  package  will  also  be  suitable  for  the  operation  of 
SCHEDULE . 


1.3  HARDWARE 

SCHEDULE  was  developed  and  debugged  using  an  IBM  360/65 
Computer  System  located  at  the  U.S.  Army  Troop  Support  and 
Aviation  Materiel  Readiness  Command  In  St.  Louis,  MO.  The  program 
was  designed  to  provide  a graphic  report  on  a TEKTRONIX  4014 
Computer  Display  Terminal  or  a tabular  report  on  most  types  of 
printer  or  typewriter  TSO  terminal,  such  as  the  Texas  Instruments 
Silent  700  or  a Digital  DECWRITER  II.  Schedules  may  be  edited 
from  any  kind  of  TSO  terminal. 


1.4  OVERLAY  STRUCTURE 

Because  of  the  amount  of  storage  required  to  load  both  the 
program  and  the  data  Into  core,  it  became  necessary  to  design  an 
overlay  structure  for  SCHEDULE  to  facilitate  the  execution  of  the 
program.  Figure  1.1  Is  the  single-region  tree  that  is  used  to 
structure  SCHEDULE  into  an  overlay.  Subroutine  OVR.CLIST  will 
create  this  overlay  structure  when  executed  in  conjunction  with 
OVR.OBJ  which  It  references.  How  to  do  this  is  outlined  In 
Section  3.2. 


1.5  FILES 

To  allow  a program  such  as  SCHEDULE  to  deal  primarily  with 
the  logical  aspects  of  data  rather  than  with  its  physical 
organization  in  a data  set,  PL/I  employs  a symbolic  representation 
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of  a data  set  CAlled  a file.  SCHEDULE  employs  two  files  named 
INDEX  and  DATA. DATA. 

INDEX  Is  used  to  permanently  store  schedule  data  and  Is  uaed 
for  no  other  purpose;  this  Is  done  In  order  to  decrease  the  chance 
of  data  being  lost  when  SCHEDULE  is  being  executed.  Data  to  be 
edited  or  reported  on  Is  read  Into  the  buffer  file,  DATA. DATA, 
where  all  data  manipulation  takes  place;  uata  which  has  been 
edited  Is  Chen  rewritten  back  Into  INDEX  for  permanent  retention. 
All  data  transmission  is  record  oriented. 


1.6  DATA  TYPES 

There  are  four  different  kinds  of  records,  each  with  its  own 
format.  The  record  types  and  the  data  Included  in  each  are: 

a.  Header  Record  - Major  Title,  Subtitle,  As-Of-Date,  Start 
Year,  and  Number  Of  Years  In  Report. 

b.  Task  Record  - Standard  Title  I.D.  (if  used,  otherwise 
blank).  Application  Code,  Task  Title,  and  up  to  three  Stop 
Date/Start  Date/Percent  Completion  combinations. 

c.  Event  Record  - Standard  Title  l.D.  Number  (if  used, 
otherwise  blank).  Application  Code,  Task  Title,  and  up  to  nine 
separate  Event  Dates. 

d.  Remark  Record  - Application  Code,  Remark  Text. 


1.7  NUMBER  OF  SUBROUTINES 

SCHEDULE  Is  made  up  of  seventeen  subroutines  that  are 
arranged  in  an  overlay  structure  as  previously  discussed. 

Listings  of  all  the  subroutine  which  make  up  SCHEDULE  are  included 
in  Appendix  A.  There  are  also  two  other  groups  of  programs  which 
are  included  in  the  SCHEDULE  package  whose  functions  are  not 
directly  related  to  the  execution  of  the  program  but  without  which 
it  could  not  be  run.  The  first  of  these  Is  required  to  setup  the 
program  on  a computing  system  and  to  allow  users  to  set  themselves 
up  so  that  they  may  use  SCHEDULE.  The  second  group  is  necessary 
to  maintain  the  data  files  in  order  to  save  space  in  the  memory  of 
the  machine  and  to  aid  in  the  trouble-shooting  of  the  files  should 
problems  develop.  Both  groups  of  programs  and  their  use  are 
covered  in  Section  3.0 


1.8  SCHEDULE  GRAPHICS 

The  graphics  routine  FORM. FORT  was  written  by  Mr.  Lonnie 
Antwiler  using  FORTRAN  IV  and  TEKTRONIX  Advanced  Graphics  Release 
3.0  routines.  Complete  documentation  of  this  routine  is  currently 
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being  prepared  for  future  publication,  hence  a complete  discussion 
of  it  will  not  be  Included  here. 


2.0  SCHEDULE  PROGRAM 

2. 1  INTRODUCTION 

As  mentioned,  SCHEDULE  is  made  up  of  17  subroutines  of  which 
12  are  major,  that  is,  they  perform  a task  or  tasks  which  are  user 
directed  or  controlled.  The  remaining  5 subroutines  are  minor, 

♦ performing  tasks  that  are,  in  most  cases,  transparent  to  the  user 

who  has  no  control  over  them.  Herein  are  descriptions  of  each  of 
the  major  subroutines  covering  their  basic  purpose  and  functions, 
followed  by  a brief  look  at  the  minor  programs. 


2.2  Subroutine  ADDD 

When  a new  record  is  to  be  added  to  a system,  ADDD  is  called 
to  prompt  the  user  for  the  new  information.  ADDD  will  display  the 
proper  formats  to  be  followed  and  write  the  new  data  into  the 
buffer  file  as  it  is  entered.  After  the  complete  record  has  been 
inputed,  control  returns  to  the  editing  routine  UPDATE,  note  that 
the  data  is  not  written  into  the  permanent  storage  file  at  this 
time. 


2.3  Subroutine  CHANGE 

This  subroutine  allows  users  to  change  a part  of  an  existing 
record  that  has  been  copied  into  core  from  an  earlier  step  that 
specified  what  record  was  to  be  changed.  CHANGE  will  display  the 
current  data  that  is  stored  in  the  record  and  will  prompt  the  user 
by  displaying  the  proper  format  for  the  new  data.  After  the 
change  has  been  entered,  control  will  be  returned  to  the  editing 
routine  UPDATE,  note  again  that  the  new  data  is  not  entered  into 
the  permanent  storage  at  this  time. 


2.4  Subroutine  FORM 

This  subroutine  is  completely  responsible  for  all  of  the 
graphics  required  by  SCHEDULE.  It  is  called  when  a graphic  report 
is  to  be  displayed  on  a TEKTRONIX  4014  and  generates  the  form  for 
the  report  along  with  the  appropriate  data  symbology.  Upon 
completing  the  report,  control  is  returned  to  subroutine  MASTER. 


2.5  Subroutine  LLIST 


Also  part  of  the  editing  portion  of  SCHEDULE, 
will  provide  the  user  with  either  a listing  of  all 


this  subroutine 
the  records 


3 


contained  within  a system  or  with  a listing  of  the  heading 
information  for  alt  the  systems  contained  in  the  permanent  storage 
file.  This  listing  may  be  obtained  during  the  TSO  session  and 
displays  the  application  code  and  record  code  number  when  listing 
records.  After  the  list  is  complete  control  will  be  returned  to 
the  editing  routine  UPDATE. 


2.6  Subroutine  MASTER 

This  subroutine  Is  the  Initial  entry  point  to  SCHEDULE  and 
acts  as  the  main  procedure  as  reoulred  in  PL/I.  This  subroutine 
is  unique  In  that  it  receives  arguments  passed  form  the  cl  1st  that 
executes  SCHEDULE  (How  to  Initialize  these  arguments  is  covered  in 
Section  3.3).  These  arguments  enable  or  disable  the  currently 
available  special  options:  Application  Code  Prompting  List,  Cross 
System  Reporting,  Lines  Per  Page  and  Windowing .*  The  Position 
Dependent  Application  Code  is  not  available  at  the  present  time. 
Briefly,  these  options  do  the  following: 

Application  Code  Prompting  List  - allows  the  user  to  display  a 
specific  list  of  application  codes  to  be  used  as  a prompt  to 
the  request  for  the  codes. 

Cross  System  Reporting  - allows  the  user  to  prepare  a report  on 
all  systems  at  one  time  rather  than  on  a system-by-system 
basis. 

Lines  Per  Page  - allows  the  user  to  change  the  default  value  of 
thirty  lines  maximum  per  report  page,  to  a value  ranging  from 
nine  to  thirty. 

Windowing  - allows  the  user  to  display,  in  a report  system, 
SCHEDULE  data  from  a specified  period  of  time. 

MASTER  Is  also  responsible  for  determining  the  task  to  be 
accomplished  and  routing  control  to  the  correct  portion  of 
SCHEDULE,  as  well  as  sending  control  back  to  the  user  when  the 
session  Is  concluded. 

2.7  Subroutine  NEW1 

NE1«1  Is  called  when  a user  decides  to  enter  a new  system  from 
the  keyboard.  Before  proceeding  into  the  input  phase,  NEW1  will 
ask  If  an  old  job  of  Inputting  data  is  being  restarted  and  if  so. 
will  search  the  buffer  file  to  determine  if  enough  data  is  present 
to  pick  up  from  the  last  record  entered.  If  that  Is  the  case,  the 
last  record  entered  will  be  displayed  and  the  user  will  be 
prompted  to  continue  input tng  data.  If  enough  data  is  not 
present,  however,  or  if  an  old  job  is  not  being  restarted,  the 
subroutine  will  prompt  the  user  for  header  data,  development  step 
data  and  remark  data  If  any.  Regardless  of  what  path  Is  followed, 
the  data  will  only  have  been  written  out  to  the  buffer  file  when 


‘These  options  are  discussed  in  detail 
the  User's  guide  (Section  4. 5). 


in  the  Special  Options  section  of 
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the  Input  Is  complete  and  control  Is  returned  to  the  Input 
subroutine  NEW. 


2.8  Subroutine  NEW 

This  subroutine  Initiates  the  Input  portion  of  SCHEDULE  by 
determining  from  the  user  where  the  new  data  la  to  be  entered  from 
either  a file  or  the  keyboard.  In  the  case  of  entering  data  from 
the  keyboard,  control  Is  sent  to  NEW1  and  returns  when  the  new 
system  Is  stored  In  the  buffer  file.  If  the  data  to  be  entered  la 
already  In  the  buffer  file,  NEW  goes  directly  to  It  for  the 
Information.  In  any  event,  when  the  new  data  Is  ready,  this 
subroutine  writes  It  out  to  the  permanent  storage  file  when 
Instructed  to  do  so  and  assigns  a system  code  to  the  new  system. 
Control  is  then  returned  to  subroutine  MASTER. 


2.9  Subroutine  REPORTS 

REPORTS  is  designed  to  provide  an  Interface  between  the 
language  and  graphics  portions  of  SCHEDULE.  It  combines  format 
and  title  information  supplied  by  the  user,  along  with  system  data 
taken  from  the  permanent  storage  file  together  in  the  buffer  file 
In  such  a way  that  It  is  understood  by  the  graphics  subroutine 
FORM. 


2.10  Subroutine  SSLIP 

SSLIP  Is  called  when  the  user  decides  to  slip  (l.e.,  move 
back  in  time)  any  of  the  tasks  or  events  that  make  up  the  schedule 
data  of  a system.  Part  or  all  of  the  data  may  be  moved  back  based 
on  the  respective  application  code  of  the  Individual  records  or 
tasks  may  be  extended  beyond  their  original  ending  date.  When  the 
"slip"  is  complete  control  is  returned  to  the  editing  routine. 


2.11  Subroutine  TYREPT 

This  subroutine  Is  called  when  a user  decides  to  print  out  a 
report  on  any  terminal  other  than  a TEKTRONIX  4014.  It  reads  data 
from  the  buffer  file  which  has  been  stored  there  by  subroutine 
REPORTS  and  prints  it  out  In  tabular  form.  As  with  the  graphic 
report  It  may  consists  of  Individual  reports  on  any  number  of  the 
systems  in  the  permanent  file  or  of  a single  report  covering  all 
the  systems.  When  the  report  is  complete,  control  Is  returned  to 
subroutine  MASTER. 


2.12  Subroutine  UPDATE 


All  editing  done  to  Individual  records  Is  controlled  through 


this  subroutine*.  UPDATE  will  determine  from  the  user  the  record 
to  be  changed  and  the  type  of  change  to  be  made  to  it.  It  then 
proceeds  to  call  up  the  appropriate  editing  routine,  either  ADDD, 
CHANGE,  or  LUST,  to  which  it  will  pass  this  information.  When 
the  editing  is  complete,  UPDATE  will  return  control  to  subroutine 
MASTER. 


2.13  Subroutine  WINDOW 

When  the  window  option  has  been  enabled  and  requested,  this 
subroutine  will  he  called  up  to  determine  from  the  user  the  upper 
and  lower  (start  and  stop)  dates  of  the  window.  This  information 
is  passed  to  REPORTS  when  the  system  data  is  being  prepared  for 
reporting . 


2.14  Minor  Subroutines 

The  five  minor  subroutines  and  their  functions  are: 

a.  Subroutine  FDATE  - Converts  a day-month-year  formatted 
response  to  a numeric  calendar  code  used  internally  by 
SCHEDULE . 

b.  Subroutine  CRAP  - Employed  by  MASTER  to  route  control  to  the 
proper  subroutine  based  upon  what  the  user  has  requested  to  do. 

c.  Subroutine  OCFILE  - Opens  the  permanent  data  file  INDEX  in 
such  a way  that  Is  compatible  with  the  direction  of  the  data 
transmission  that  is  to  take  place. 

d-  Subroutine  RDATE  - Converts  the  numeric  calendar  code  used 
internally  by  SCHEDULE  to  a day-month-year  format  for  display 
on  the  terminal. 

e.  Subroutine  REVERSE  - Used  to  properly  position  the  cursor  on 
a CRT  terminal  over  the  format  prompts  displayed  by  SCHEDULE. 


3.0  PROGRAMMERS  GUIDE 
3.1  Introduction 

Thts  section  is  Intended  to  assist  in  preparing  SCHEDULE  for 
operation  and  setting  up  the  catalogs  of  new  users  such  that  they 
may  execute  the  program.  The  following  instructions  can  be 
carried  out  once  SCHEDULE  and  all  of  its  associated  routines  have 
been  successfully  copied  into  a users  catalog  or  a catalog  of  its 
own.  It  will  be  necessary  to  change  any  fully  qualified  dataset 
names  in  the  clists  or  routines  to  reflect  the  new  catalog  name. 
Attempts  should  be  made  not  to  change  any  of  the  dataset  names, 
however,  if  this  is  not  possible  care  should  be  taken  to  see  that 
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all  references  to  that  dataset  are  also  changed  accordingly 


3.2  SCHEDULE  SETUP 

Complete  the  following  steps  in  sequence: 

a.  Compile  the  subroutines  listed  In  Figure  3.1  and  save  the 
resulting  object  modules. 

b.  Create  a partitioned  data  set  named  MODLIB.OBJ  and  copy  the 
following  object  modules  Into  it  assigning  the  member  names  shown 
In  parenthesis  after  the  module  names:  0C7ILE.0BJ  (OC) , 

REVERSE. OBJ  (R) , RDATE.OBJ  (ROT),  and  FDATE.OBJ  (DT) . 

c.  Allocate  In  the  same  catalog  In  which  SCHEDULE  will  be  stored 
two  files  named  STDTIT.DATA  and  ACHGN  (see  sections  3.5  and  3.6). 

d.  Execute  OVR.CLIST  to  create  the  overlay  structure  required  by 
SCHEDULE. 

When  the  overlay  has  been  created,  the  result  will  be  a load 
module  named  MASTER. LOAD  which  contains  the  overlay  of  SCHEDULE. 
This  is  the  load  module  that  Is  called  by  all  users  of  SCHEDULE. 


3-3  USER  SETUP 

Prior  to  setting  up  SCHEDULE  users.  It  will  be  necessary  for 
the  programmer  to  Initialize  the  passed  parameters  In  the 
SCHEDULE. CLIST  dataset,  which  Is  copied  onto  all  the  users 
catalogs  during  the  setup  procedure.  As  previously  discussed  In 
Section  2.6,  these  parameters  are  passed  to  SCHEDULE  and  enable  or 
disable  the  special  options  that  are  available.  Figure  3.2  Is  a 
listing  of  SCHEDULE. CLIST  that  shows  the  parameter  format  and 
Figure  3.3  Is  a list  of  possible  parameter  values.  Note  from 
Figure  3.2  that  regardless  of  the  Initial  parameter  values,  the 
user  may  override  them  through  the  use  of  positional  parameters. 

The  SCHEDULE  support  routines  are  written  to  allow  any  user  to 
set  themself  up  simply  by  executing  SETUP. CLIST,  which  is  part  of 
the  documentation  package.  This  routine  will  create  in  the  users 
file,  the  buffer  dataset  DATA. DATA  and  the  permanent  dataset 
INDEX,  both  of  which  are  required  by  the  program.  A background 
Job  is  also  submitted  by  the  setup  routine  to  Initialise  INDEX  and 
enter  some  sample  data  consisting  of  one  system  SCHEDULE  Into  It. 
Finally,  the  CLIST  required  by  the  user  to  execute  the  program, 
SCHEDULE. CLIST,  Is  copied  Into  their  catalog.  This  completes  the 
setup  procedure,  most  of  which  the  user  will  be  unaware  of, 
however,  there  will  be  a dataset  named  JBA.CNTL  present  In  the 
user's  catalog  that  is  a by-product  of  the  setup  process.  This 
dataset  Is  not  required  by  SCHEDULE  and  In  the  interest  of  saving 
apace  should  be  deleted.  When  all  the  data  sets  required  by 
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SCHEDULE  are  present,  the  user  Is  then  able  to  begin  using  the 
program,  hopefully  after  reading  the  User's  Guide  In  Section  4.0 


3.4  MAINTENANCE  PROGRAM 

These  routines  are  provided  to  permit  the  user  to  perform 
some  basic  "maintenance"  on  the  permanent  master  data  file,  INDEX, 
that  can  prevent  or  solve  problems  which  might  occur  during  the 
routine  use  of  SCHEDULE.  Each  routine  performs  a particular  task, 
however,  they  all  operate  in  basically  the  same  way.  When  one  of 
these  routines  is  called,  it  edits  a dataset  named  COMPRS.CNTL, 
which  contains  a general  list  of  Job  Control  Language  that  employs 
an  IBM  Utility  Program,  IEBISAM.  The  editing  consists  of  adding, 
deleting,  or  changing  lines  In  COMPRS.CNTL  and  saving  the  result 
In  a newly  created  temporary  dataset.  This  revised  control 
listing  is  then  submitted  as  a background  job. 

Listings  of  all  the  routines  are  contained  In  Appendix  C and 
It  Is  suggested  that  before  attempting  to  use  any  of  them  that  the 
user  become  familiar  with  the  IHM  Utility  Program,  IEBISAM. 
Following  are  brief  descriptions  of  the  tasks  performed  by  each  of 
the  routines: 

a.  COMPRS  - Copies  INDEX  from  one  direct  access  volume  to 
another  and  back  to  the  original  volume.  During  this  process 
deleted  records  are  removed  and  records  in  the  overflow  area  of 
the  original  dataset  are  moved  onto  the  primary  area. 

b.  DUMP  - Copies  INDEX  to  tape  from  disk. 

c.  LIST  - Copies  INDEX  and  routes  the  output  to  a line  printer. 

d.  RESTORE  - Copies  tape  created  by  DUMP  Into  INDEX. 


3.5  STANDARD  TITLE 

The  purpose  of  Standard  Titles  is  to  allow  an  office  or 
organization  to  employ  a standard  set  of  titles  to  describe  the 
various  tasks  and  events  that  make  up  the  system  SCHEDULES.  When 
a new  system  Is  being  entered  from  the  keyboard,  the  user  is  given 
the  chance  of  using  a standard  title  or  entering  one  of  their  own. 
The  standard  titles  are  stored  in  the  dataset,  STDTIT.DATA,  which 
should  be  kept  in  a general  catalog  available  to  all  users  of 
SCHEDULE.  This  dataset  is  allocated  to  the  user  when  the  program 
Is  executed  and  accessed  when  a standard  title  Is  requested.  The 
file  Itself  should  be  structured  using  fixed  blocking,  along  with 
a logical  record  length  and  blocks ize  of  80  characters.  A sample 
listing  of  a standard  title  dataset  Is  shown  in  Figure  3.4.  If 
the  Standard  Title  option  is  to  be  used,  it  will  of  course,  be 
necessary  to  place  the  titles  in  this  dataset,  otherwise,  this 
file  may  be  left  empty  without  affecting  the  operation  of  the 
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program  as  long  as  Standard  titles  are  not  requested  by  the  user 


3.6  CHANGE  RECORDING 

The  ability  to  record  significant  changes  made  to  different 
system  SCHEDULES  was  requested  by  users  to  enable  them  to  list 
from  a separate  file,  all  the  major  changes  rather  than  having  to 
look  for  them  system-by-systera.  This  option  is  currently  not 
included  as  part  of  SCHEDULE,  however,  the  dataset  in  which  these 
changes  would  he  stored  is  required  for  the  operation  of  the 
program.  Similar  to  the  standard  title  dataset,  a dataset  named 
ACHGN  must  be  set  up  in  the  general  catalog  in  which  SCHEDULE  is 
to  be  kept  so  that  it  can  be  accessed  by  all  of  the  users.  ACHGN 
should  be  allocated  using  fixed  blocking  and  a logical  record 
length  of  114  characters  and  a blocking  size  of  1140  characters. 


4.0  USER'S  GUIDE 
4.1  INTRODUCTION 

This  section  is  intended  to  familiarize  the  new  user  with  all 
the  options  available  under  SCHEDULE  and  how  to  use  them.  Each 
example  introduces  a new  feature  and  presents  it  as  a separate 
task,  that  is,  it  begins  from  a READY  mode  and  concludes  with  a 
READY  mode.  This  should  not  he  taken  to  mean  that  it  is  necessary 
to  leave  the  main  program  each  time  a different  task  is  required, 
the  fact  is  that  several  opportunities  are  given  to  start  a new 
task  prior  to  leaving  the  program.  The  reasons  for  presenting  the 
material  in  this  manner  are  to  illustrate  each  feature  in  a 
straight-forward  manner  and  avoid  confusing  the  user  by  attempting 
to  present  several  concepts  at  once.  Points  to  keep  in  mind  when 
covering  this  material  are: 


a.  Whenever  "none"  is  available  as  a response  to  a question  its 
selection  will  result  In  control  being  returned  to  the  next 
higher  level. 

b.  The  SCHEDULE  prompts  shown  are  accurate  in  their  content, 
however,  the  format  may  be  slightly  different  when  displayed  on 
the  screen. 

c.  The  "lost  time"  spent  reading  this  material  will  be  more 
than  recovered  by  the  improved  performance  of  the  first-time 
user  who  will  have  a better  grasp  of  what  is  required  by  the 
system  and  how  the  data  can  be  prepared  to  facilitate  the  task 
of  entering  it. 
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4.2  ENTER  INC  A NEW  SYSTEM 

4.2.1  ENTERING  A NEW  SYSTEM  FROM  THE  KEYBOARD 

From  the  READY  mode,  call  up  SCHEDULE  as  shown: 


READY 

EXEC  SCHEDULE 


The  screen  will  erase  and  SCHEDULE  will  Inquire: 


DO  YOU  NEED  FULL  PROMPTING? 


to  which  a yes/no  reply  is  required.  A yes  response  will  cause 
acceptable  responses  to  be  displayed  after  multiple  choice 
questions  and  a no  response  will  suppress  this.  An  example  of 
both  cases  is  shown  in  Figure  4.1.  Full  prompting  will  be  used 
for  this  example,  so  the  response  to  this  question  is  yes  (Y): 

DO  YOU  NEED  FULL  PROMPTING? 

Y 


SCHEDULE  will  then  ask  for  the  system  type; 


ENTER  SYSTEM  TYPE 

N - NEW  (THE  SYSTEM  DOES  NOT  HAVE  A FILE  CODE) 
0 - OLD  (THE  SYSTEM  IS  IN  THE  MAIN  FILE) 


which  must  be  responded  to  with  "N"  when  a new  system  is  to  be 
entered: 


ENTER  SYSTEM  TYPE 

N - NEW  (THE  SYSTEM  DOES  NOT  HAVE  A FILE  CODE) 
0 - OLD  (THE  SYSTEM  IS  IN  THE  MAIN  FILE) 

N 


L 
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At  this  point  SCHEDULE  must  be  told  where  the  new  date  Is  to  be 
entered  from: 


WILL  YOU  ENTER  THE  DATA  FROM  THE  KEYBOARD  OR 
IS  IT  PRESENTLY  ON  A FILE? 

ENTER 

K - KEYBOARD 
F - FILE 
N - NONE 


Entering  date  from  a file  Involves  some  additional  steps  beyond 
thla  example  and  la  covered  in  Section  A. 2. 2.  For  this  case, 
assume  that  data  la  to  be  entered  from  the  keyboard  (which  by 
the  way  will  be  the  rule  rather  than  the  exception)  and 
Indicate  thla  by  entering  "K": 


WILL  YOU  ENTER  THE  DATA  FROM  THF.  KEYBOARD  OR 
IS  IT  PRESENTLY  ON  A FILE? 

ENTER 

K - KEYBOARD 
F - FILE 
N - NONE 
K 


SCHEDULE  then  asks: 


IS  THIS  A RE-START  OF  AN  OLD  JOB? 


This  may  seem  like  an  odd  question,  yet  it  offers  the  user  the 
opportunity  to  recover  seemingly  lost  data.  When  a new  system 
Is  originally  being  entered.  It  Is  first  stored  In  an 
Intermediate  storage  file  separate  from  the  permanent  master 
storage  file.  Only  after  the  Input  la  complete  Is  the 
Intermediate  storage  copied  into  the  master  file. 

Unfortunately,  If  the  system  should  go  down  for  some  reason 
while  the  data  Is  being  entered,  the  Information  contained  In 
the  Intermediate  storage  file  will  never  get  to  the  permanent 
main  file. 

This  does  not  necessarily  mean  that  the  data  entered  to  that 
point  is  lost , since  It  may  be  recoverable  from  the 
Intermediate  storage  file.  A yes  response  to  this  question 
will  cause  a search  to  be  made  of  it  to  see  If  there  Is  data 
present  and  If  it  Is  of  sufficient  quantity,  to  allow  the  user 
to  pick  up  from  where  they  left  off  or  slightly  before  that 
point.  If  this  la  the  case,  SCHEDULE  will  display  the  last 
record  saved  and  proceed  to  prompt  for  the  next  required  entry. 
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If  not,  this  will  be  indicated  and  the  data  input  must  be 
started  from  the  beginning.  Of  course,  for  the  first  run 
through  a new  system  the  answer  to  this  question  should  be  "No" 
(N). 


IS  THIS  A RE-START  OF  AN  OLD  JOB? 
N 


At  this  point  SCHEDULE  will  enter  the  input  mode  which  begins 
with  a prompt  for  the  system  title  followed  by  several  requests 
for  additional  descriptive  information: 


ENTER  MAJOR  SYSTEMS 
/ / /* 


This  title  becomes  part  of  the  master  storage  file  and  will  be 
displayed  on  any  report  (with  the  exception  of  a cross  system 
report  discussed  later)  that  lists  all  or  part  of  the 
information  contained  in  this  system.  For  this  example: 


ENTER  MAJOR  SYSTEMS 

/AIRCRAFT /SUPPORT  SYSTEM / 


The  next  prompt  is  for  a project  title: 


ENTER  PROJECT  TITLE 

/ / / 


which  also  becomes  part  of  the  permanent  master  storage  file 
under  the  major  systems.  Note  in  the  example  response  it  is 
not  necessary  to  enter  a character(s)  in  both  sections  of  the 
prompting  format: 


ENTER  PROJECT  TITLE 

/GROUND  SUPPORT  UNIT / / 


SCHEDULE  will  next  ask  for: 


AS  OF  DATE 
/— * *--/ 


*0n  the  typewriter  terminals,  always  skip  the  first  space  following  the 
slash.  12 


The  answer  to  this  should  not  necessarily  reflect  the  current 
date,  but  rather  the  most  recent  date  on  which  the  Information 
was  last  updated.  It  should  also  be  In  a day-month-year  format 
as  shown: 


AS  OF  DATE 
/ 1 5*MAY*78/ 


The  response  to  the  next  prompt: 


ENTER  THE  NUMRER  OF  TASKS  PLUS  EVENTS 
/ / 


should  be  the  total  number  of  types  of  tasks  and  events,  not 
the  total  number  of  times  tasks  or  events  occur.*  For  example, 
if  there  were  two  tasks,  each  occurring  once  during  a program, 
and  two  events,  one  occurring  twice  and  the  other  three  times, 
the  total  of  tasks  and  events  would  be  four  rather  than  seven. 
For  this  example,  assume  the  answer  is: 

ENTER  THE  NUMBER  OF  TASKS  PLUS  EVENTS 
/ 6 / 


SCHEDULE  will  next  inquire: 


ENTER  THE  NUMBER  OF  REMARKS 
I / 


Any  number  of  remarks  may  be  made  (even  zero),  however,  only  up 
to  six  lines  of  remarks  may  he  displayed  on  each  page  of  the 
report.  For  this  example,  the  number  of  remarks  will  be: 


ENTER  THE  NUMRER  OF  REMARKS 

/I / 

SCHEDULE  is  now  prepared  to  accept  the  input  of  the  various 
development  steps.  The  screen  will  blank  and  display  the 
prompt : 

ENTER  ELEMENT  TYPE  AND  NUMBER  OF  ELEMENTS 
TASK  OR  EVENT 
FOLLOWED  BY  NUMBER 

*A  minimum  of  four  tasks  and  events  is  required! 


There  Is  no  restriction  as  to  the  sequence  of  uttering;  tasks 
and  events  maybe  interspersed  with  one  another  with  different 
numbers  of  tasks  or  events  dates.  It  is  necessary,  though, 
when  responding  to  the  prompt  to  identify  the  element  type, 
either  task  or  event,  and  the  number  of  elements  (i.e.,  the 
number  of  task  or  event  datesl . A task  is  entered  by 
responding  with  a "T"  followed  by  the  number  of  task  daces. 
The  maximum  allowable  number  of  task  dates  is  three  and  if  no 
number  is  entered,  one  is  assumed.  For  example,  after 
responding  with  a "T" : 


F.NTER  ELEMENT  TYPE  AND  NUMBER  OF  ELEMENTS 
T 


the  system  will  prompt  the  user  for  the  task  I.D.  number*,  task 
title,  start  date,  stop  date,  and  percent  completion: 

ENTER  ELEMENT  TYPE  AND  NUMBER  OF  ELEMENTS 
T 

/ ID0  / TASK  / STR.DT.  / STP.DT.  / COMPLT  / 

/* */ / * * / * * /*** ***  j 


An  example  response  is  shown  below  in  which  the  ID  number  has 
been  left  blank  because  standard  titles  are  not  available  and 
the  percent  completion  is  zero**: 

ENTER  ELEMENT  TYPE  AND  NUMRER  OF  ELEMENTS 
T 

/ ID0  / TASK  / STR.DT.  / STP.DT  / COMPLT  / 

/* * /CONCEPT  TESTING /l 5*JAN*78/l 5*MAY*78/***  0 ***/ 


At  this  point  the  system  would  normally  recycle  by  erasing  the 
screen  and  asking  for  the  next  element  type  and  number  of 
elements.  This  would  not  occur  for  a task  with  multiple 
elements  (i.e.,  multiple  dates  or  occurranoos) . In  the  event 
of  more  than  one  task  date,  two  for  instance,  the  response  to 
the  original  prompt  would  he: 


ENTER  FLEMFNT  TYPF  AND  NDMRFR  OF  ELEMENTS 
T2 


*The  task  ID  number  may  be  used  to  identify  a standard  title  to  be  used 
for  the  task  title.  Standard  titles  are  up  to  the  user  and  are 
discussed  in  detail  in  Section  3.5. 


**Percent  completion  numbers  should  be  entered  ns  decimals  (e.g 

.10,  75*  - .75,  100X  - 1.). 


10X  - 
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SCHEDULE  would  prompt  as  before  for  the  Initial  task  data,  but 
Instead  of  recycling  at  this  point  a request  for  additional 
information,  namely  the  second  start/stop  date  and  percent 
completion  of  the  second  portion  of  the  task,  would  be 
displayed: 


T2 

/ ID#  / TASK  / STR.DT.  / STP.DT  / COMPLT  / 

/* * /DEVELOPMENT  TESTING-/  1*JUN*78/  1*SEP*78/***  0 ***/ 

/ STR.DT.  / STP.DT  / COMPLT  / 

/ * * / * * /*** ***  / 


Once  this  had  been  completed  as  shown: 

T 2 

/ ID#  / TASK  / STR.DT.  / STP.DT  / COMPLT  / 

/* * /DEVELOPMENT  TESTING-/  1*JUN*78/  1*SEP*78/***  0 ***/ 

/ STR.DT.  / STP.DT  / COMPLT  / 

/ l*OCT*78/  1*DEC*78/***  0 ***/ 


the  system  would  recycle  and  prompt  for  the  next  type  and 
number  of  element.  The  sequence  of  operations  is  essentially 
the  same  when  entering  an  event  but,  of  course,  the  necessary 
responses  are  not.  An  event  is  identified  by  an  "E"  and  rather 
than  three,  a maximum  of  nine  event  dates  may  be  entered. 

Also,  only  one  date  is  required  and  no  percent  completion.  For 
brevity,  two  complete  operations  are  shown  in  Figure  4.2,  one 
for  a singular  event  date  and  one  for  a multiple  event  date. 
After  the  system  has  cycled  through  either  of  these  processes 
the  number  of  times  equal  to  the  number  entered  in  response  to 
the  question  about  the  total  number  of  tasks  and  events,  it 
will  automatically  move  on  to  the  input  of  the  remarks.*  The 
remark  prompt  will  be  displayed: 


ENTER  REMARKS  1 

/* */ 


indicating  the  remark  format  and  the  number  of  the  remark,  in 
this  case,  one.  The  remark  must  be  entered  after  spacing  twice 
as  shown  below: 

ENTKR  REMARKS  1 

/* */ 

THIS  IS  A DRAFT  SCHEDULE 

Since  it  was  indicated  earlier  that  there  was  only  one  remark 
in  our  example,  the  system  would  continue  on  at  this  point.  If 
more  than  one  remark  had  been  indicated,  the  system  would 
recycle  that  number  of  times  through  the  remark  entering 
process.  Once  the  input  of  the  remarks  is  complete,  the  user 
will  be  asked: 


DO  YOU  WANT  THIS  DATA  ADDED  TO  THE  MAIN  FILE? 


This  question  should  be  answered  yes.  If  a no  response  is 
given,  the  data  entered  up  to  this  point  will  not  be  written 
out  to  the  permanent  main  data  file  and  control  will  be 
returned  to  the  next  higher  level,  thus: 


DO  YOU  WANT  THIS  DATA  ADDED  TO  THE  MAIN  FILE? 
Y 


This  does  not  cause  the  data  to  be  entered  into  the  main  file 
yet,  but  it  does  start  the  process  through  which  this  will  be 
accomplished.  The  first  step  is  completed  by  the  program  which 
assigns  a system  file  code  to  the  new  system  and  displays  it  to 
the  user: 


DO  YOU  WANT  THIS  DATA  ADDED  TO  THE  MAIN  FILE? 
Y 

FILE  CODE  FOR  THE  SYSTEM  IS  0020000 


Next,  the  user  will  be  asked  to  input  the  application  code  to 
be  assigned  to  all  the  data  that  has  been  lnputed: 

ENTER  APLI  CODE 
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The  user  has  the  option  of  selecting  any  combination  of 
alphabetic  characters,  with  the  exception  of  the  letters  A and 
N.  The  letter  combination  "SET"  is  chosen  for  this  example: 


ENTER  APLI  CODE 
SET 


At  this  point,  SCHEDULE  will  write  the  new  system  data  out  to 
the  master  storage  file  and  control  will  return  to  the  main 
program  which  will  ask: 


DO  YOU  WISH  TO  CONTINUE? 


A yes  answer  will  continue  the  session  and  allow  the  user  to  go 
on  to  a new  task.  A no  response  will  terminate  the  session  and 
return  the  user  to  the  READY  mode: 


DO  YOU  WISH  TO  CONTINUE? 
N 


READY 


A. 2. 2 ENTERING  A NEW  SYSTEM  FROM  A FILE 


From  the  READY  mode,  call  up  SCHEDULE  as  shown: 


READY 

EXEC  SCHEDULE 


The  screen  will  erase  and  the  user  will  be  asked: 


DO  YOU  NEED  FULL  PROMPTING? 


to  which  a yes/no  reply  is  required.  A yes  response  will  cause 
acceptable  responses  to  be  displayed  after  multiple  choice 
questions  and  a no  response  will  surpress  this.  An  example  of 
both  cases  is  shown  in  Figure  4.1.  Full  prompting  will  be  used 
for  this  example,  so  the  response  to  this  question  is  yes 
<"Y"): 
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DO  YOU  NEED  FULL  PROMPTING? 
Y 


SCHEDULE  will  then  ask  for  the  system  type. 


ENTER  SYSTEM  TYPE 

N - NEW  (THE  SYSTEM  DOES  NOT  HAVE  A FILE  CODE) 
0 - OLD  (THE  SYSTEM  IS  IN  THE  MAIN  FILE) 


which  must  be  responded  to  with  an  "N"  because  a new  system  Is 
being  entered: 


ENTER  SYSTEM  TYPE 

N - NEW  (THE  SYSTEM  DOES  NOT  HAVE  A FILE  CODE) 
0 - OLD  (THE  SYSTEM  IS  IN  THE  MAIN  FILE) 

N 


SCHEDULE  will  next  ask  to  be  told  where  the  new  data  is  to  be 
entered  from: 


WILL  YOU  ENTER  THE  DATA  FROM  THE  KEYBOARD  OR  IS  IT  PRESENTLY 
ON  A FILE? 

ENTER 

K - KEYBOARD 
F - FILE 
N - NONE 


Since  this  example  covers  entering  data  from  a file,  the  reply 
should  be: 


WILL  YOU  ENTER  THE  DATA  FROM  THE  KEYBOARD  OR  IS  IT  PRESENTLY 
ON  A FILE? 

ENTER 

K - KEYBOARD 
F - FILE 
N - NONE 


F 


Before  proceeding,  it  would  be  helpful  to  briefly  cover  how  the 
data  Is  originally  entered  into  the  file  and  what  format  It  Is 
in. 


SCHEDULE  employs  two  separate  data  flies,  the  main  data  file 
and  a buffer  file.  The  main  data  file  Is  used  to  permanently 
store  system  data;  no  manipulation  of  the  data  Is  performed 
within  this  file  other  than  reading  and  writing  of  the  records 
to  and  from  the  file.  The  buffer  data  file  Is  where  the  system 
record  data  Is  temporarily  stored  and  data  manipulation  occurs. 
Prior  to  writing  a report,  the  data  from  the  systems  to  be 
reported  on  Is  written  from  the  main  data  file  to  the  buffer 
file  In  a report  format.  This  means  that  the  data  Is  organised 
In  such  a way  that  will  be  understood  by  the  graphics  section 
of  the  SCHEDULE  program  enabling  It  to  properly  display  the 
report . 


After  a new  system  has  been  entered  from  the  keyboard.  It  Is 
stored  In  the  buffer  file  In  a non-report  form  In  such  a way 
that  will  be  understood  by  SCHEDULE,  allowing  It  to  write  the 
data  out  to  the  main  data  file.  If  It  Is  ever  necessary  to 
copy  a system  SCHEDULE,  or  if  data  entered  from  the  keyboard  Is 
not  entered  Into  the  main  data  file.  It  is  possible  to  copy  or 
enter  this  data,  whatever  the  case  may  be,  without  being  forced 
to  re-enter  all  the  data.  The  steps  to  perform  either  of  these 
tasks  are  discussed  herein. 


4.2.2. 1 REPORT  FORM 

In  order  to  copy  a system  already  In  the  master  file,  It  must 
be  stored  In  report  form  In  the  buffer  file.  This  Is 
accomplished  by  following  the  steps  outlined  in  Section  4.4.1 
on  writing  graphics  reports,  using  the  system  to  be  copied  up 
to  the  point  at  which  the  program  indicates  that  the  file  is 
properly  stored  in  the  buffer  file  in  a report  format  and  is 
ready  to  be  displayed: 


FILE  001  IS  READY 


At  this  point  SCHEDULE  will  ask  if  there  Is  another  system  to 
be  Included  in  the  report  and  if  so  what  Is  its  system  code: 


ENTER  FILE  FOR  SYSTEM 
XXX0000  - FILE  CODE 

N - NONE  / NO  MORE  SYSTEMS 
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It  Is  only  possible  to  copy  one  report  at  a time,  so  the 
response  to  this  question  must  be  "N": 


ENTER  FILE  FOR  SYSTEM 
XXXOOOO  - FILE  CODE 

N - NONE  / NO  MORE  SYSTEMS 
N 


SCHEDULE  will  next  inquire  where  the  report  is  to  be  printed: 


ENTER  TERMINAL  TYPE 
ENTER 

G - TEXTRONIX  401 A (GRAPHICAL  OUTPUT) 

P - TEXAS  INSTRUMENTS  (PRINTER  OUTPUT) 
N - NONE 


The  task  of  storing  the  system  to  be  copied  In  the  buffer  file 
In  the  proper  format  Is  accomplished  at  this  point,  so  there  Is 
no  reason  to  display  the  report  (although  It  may  be  if  desired 
with  no  harm  being  done  to  the  data  stored  In  the  buffer  file). 
Thus,  the  response  to  the  terminal  type  prompt  will  be: 


ENTER  TERMINAL  TYPE 
ENTER 

G - TEXTRONIX  4014  (GRAPHICAL  OUTPUT) 

P - TEXAS  INSTRUMENTS  (PRINTER  OUTPUT) 
N - NONE 
N 


After  completing  the  above  steps,  and  the  steps  in  the  previous 
section,  to  arrive  at  the  point  at  which  SCHEDULE  Is  Informed 
that  the  date  Is  In  a file: 


WILL  YOU  ENTER  THE  DATA  FROM  THE  KEYBOARD  OR  IS  IT  PRESENTLY 
ON  A FILE? 

ENTER 


a prompt  will  be  displayed  asking  for  the  format  of  the  data  in 
the  buffer  file: 


IS  YOUR  DATA  IN  A REPORT  FORM? 


Since  this  was  Just  accomplished,  the  response  is: 


IS  YOUR  DATA  IN  A REPORT  FORM? 
Y 


SCHEDULE  will  next  want  to  know: 


DO  YOU  WANT  THIS  DATA  ADDED  TO  THE  MAIN  FILE? 


If,  for  some  reason,  it  was  not  necessary  to  enter  the  data 
into  the  main  file,  a negative  response  would  cause  the  data  in 
the  buffer  to  remain  there  and  control  would  return  to  the  main 
program : 


DO  YOU  WANT  THIS  DATA  ADDED  TO  THE  MAIN  FILE? 
N 

DO  YOU  WISH  TO  CONTINUE? 


from  which  the  session  could  be  terminated  or  a different  task 
undertaken.  After  having  Rone  through  all  these  steps, 
however,  it  would  normally  be  desirable  to  respond  positively 
to  this  question: 


DO  YOU  WANT  THIS  DATA  ADDED  TO  THF.  MAIN  FILE? 
Y 


This  does  not  cause  the  data  to  be  entered  into  file  yet,  but 
starts  the  process  through  which  this  will  be  accomplished. 
The  first  step  is  completed  by  the  program  which  assigns  a 
system  file  code  to  the  new  system  which  is  displayed  to  the 
user: 


DO  YOU  WANT  THIS  DATA  ADDED  TO  THE  MAIN  FILE? 
Y 

FILE  CODE  FOR  THE  SYSTEM  IS  0020000 
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The  system  will  then  prompt  for  up  to  an  eleven  character 
application  code: 


ENTER  A PL I CODE 

which  for  the  example  will  be: 

ENTER  APLI  CODE 
E 


It  is  at  this  point,  the  data  is  entered  into  the  main  data 
file.  When  that  operation  is  complete,  the  system  will 
inquire: 


DO  YOU  WISH  TO  CONTINUE? 


at  which  time  the  operator  may  go  on  to  other  tasks  by 
responding  "Y"  or  obtain  the  READY  mode,  thusly: 


DO  YOU  WISH  TO  CONTINUE? 
N 


READY 


4. 2. 2. 2 NON-REPORT  FORM 

For  one  reason  or  another,  data  which  had  been  previously 
entered  into  the  buffer  file  may  still  be  written  into  the 
master  data  file  even  though  it  may  be  after  writing  reports  or 
even  a different  schedule  TSO  session  altogether.*  Returning 
to  the  point  left  earlier: 


WILL  YOU  ENTER  THE  DATA  FROM  THE  KEYBOARD  OR  IS  IT  PRESENTLY 
ON  A FILE? 

ENTER 

K - KEYBOARD 
F - FILE 
N - NONE 


*If  this  is  the  case,  it  would  be  wise  prior  to  executing  SCHEDULE  to 
list  the  buffer  data  file  DATA. DATA  to  determine  that  the  data  in 
question  is  still  there. 
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The  system  will  next  inquire  as  before: 


IS  YOUR  DATA  IN  A REPORT  FORM? 


Since  this  is  not  the  case  here,  the  response  Is: 


IS  YOUR  DATA  IN  A REPORT  FORM? 
N 


Again,  the  system  will  inquire: 

DO  YOU  WANT  THIS  DATA  ADDED  TO  THE  MAIN  FILE? 


to  which  a negative  answer  would  cause  the  data  to  be  left  in 
the  buffer  file  and  control  to  return  to  the  main  program.  For 
this  example  though,  the  response  is: 


DO  YOU  WANT  THIS  DATA  ADDED  TO  THE  MAIN  FILE? 
Y 


It  should  be  pointed  out  that  this  step  does  not  cause  the  data 
to  be  entered  into  the  main  data  file,  but  rather  it  initiates 
the  process  through  which  this  will  be  accomplished.  The  first 
step  is  completed  by  the  program  which  assigns  a system  file 
code  to  the  new  system  which  is  then  displayed  to  the  user: 


DO  YOU  WANT  THIS  DATA  ADDED  TO  THE  MAIN  FILE? 

Y 

FILE  CODE  FOR  THE  SYSTEM  IS  0030000 

Then  the  system  will  prompt  for  an  application  code  to  be 
assigned  to  all  the  records: 

ENTER  APLI  CODE 
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which  for  the  example  ia: 


A 


ENTER  APLI  CODE 
E 


It  is  at  this  point  that  the  data  is  copied  into  the  main  data 
file  for  permanent  storage.  When  that  operation  is  complete 
the  system  will  ask: 

DO  YOU  WISH  TO  CONTINUE? 


at  which  time  the  user  may  go  on  to  other  tasks  by  responding 
"Y"  or  obtain  the  READY  mode  by  responding  "N"  as  shown: 


DO  YOU  WISH  TO  CONTINUE? 
N 


RFADY 


4.3  EDITING  OLD  SYSTEMS 
4.3.1  General 

There  are  presently  five  edit  commands  available  under  the  edit 
mode.  The  steps  leading  up  to  the  point  where  the  system 
inquires  as  to  what  type  of  editing  is  desired  are  common  to 
all  the  commands  and  will  be  covered  once  here  at  the 
beginning,  rather  than  repeated  for  each  command.  This  will  be 
followed  by  individual  discussions  of  the  steps  required  under 
each  of  the  commands. 


From  the  READY  mode  call  up  the  SCHEDULE  program  as  shown: 


READY 

EXEC  SCHEDULE 


The  screen  will  be  erased  and  SCHEDULE  will  inquire: 


DO  YOU  NEED  FULL  PROMPTING? 


cause 


to  which  a yes/no  reply  is  required.  A yes  response  will 
acceptable  responses  to  be  displayed  after  multiple  choice 
questions  and  a no  response  will  suppress  this.  An  example  of 
both  cases  Is  shown  In  Figure  4.1.  Full  prompting  will  be  used 
through  all  sections  of  this  example,  therefore,  the  response 
to  this  question  Is  yes  (Y)  : 


no  YOU  NEED  FULL  PROMPTING? 
Y 


SCHEDULE  will  next  Inquire  as  to  the  type  of  system: 


ENTER  SYSTEM  TYPE 

N - NEW  (THE.  SYSTEM  DOES  NOT  HAVE  A FILE  CODE) 
0 - OLD  (THE  SYSTEM  IS  IN  THE  MAIN  FILE) 


Since  editing  nay  only  he  performed  on  data  sets  presently  part 
of  the  master  storage  file,  the  response  to  this  query  must 
always  be  old  ("0"). 


ENTER  SYSTEM  TYPE 

N - MEW  (THE  SYSTEM  DOES  NOT  HAVE  A FILE  CODE) 
0 - OLD  (THE  SYSTEM  IS  IN  THE  MAIN  FILE) 

0 


SCHEDULE  will  then  ask: 


DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA? 
ENTER 

E - EDIT  DATA 
R - WRITE  REPORTS 
N - NONE 


Since  it  is  desired  to  edit  data,  the  appropriate  response  is 

tlpll  . 


DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA? 
ENTER 

E - EDIT  DATA 
R - WRITE  REPORTS 
N - NONE 


25 


This  will  direct  SCHEDULE  to  the  edit  mode  from  which  all 
editing  can  be  accomplished,  regardless  of  what  system  the 
record  to  be  edited  Is  In.  It  will  then  request  that  the  type 
of  editing  required  be  defined: 

ENTER  EDIT  CODE 
A - ADD 
D - DELETE 
C - CHANCE 
S - SLIP 
R - COPY 
L - LIST 
F - FIND 
N - NONE 


The  seven  editing  options  listed  here  are  discussed 
Individually  in  the  following  sections.  The  sample  report 
shown  in  Figure  4.3  will  be  "edited"  to  help  illustrate 
practical  applications  of  some  of  the  edit  commands,  so  it 
might  be  wise  to  look  at  it  along  with  its  listing*  (Figure 
4.4)  before  continuing,  as  well  as  while  covering  the  material 
contained  herein. 


4.3.2  Add 

After  responding  with  an  "A"  to  the  edit  code  query  to  indicate 
that  a new  record  is  to  be  added  to  a system,  the  program  will 
ask  for  the  new  record  number  to  be  assigned  to  this  piece  of 
information: 

ENTER  RECORD  CODE 


The  response  must  be  the  full  seven  digit  code.  Suppose  for 
this  example  it  was  necessary  to  insert  an  event  between  lines 
3 and  4 of  the  report  (Figure  4.3).  Referring  to  the  listing, 
(Figure  4.4)  it  is  seen  that  the  new  record  number  must  be 
somewhere  between  records  number  0010030  and  0010040. 

Selecting  0010035  for  the  new  record  code*: 


ENTER  RECORD  CODE 
0010035 


*It  is  not  necessary  to  choose  a new  code  exactly  between  the  old  codes, 
0010031  could  have  been  used  .lust  as  well  as  for  the  new  code.  26 


the  system  will  tlion  inquire  as  to  the  type  of  information  that 
is  to  he  contained  In  this  new  record: 


ENT HR  ADDIl ION  TYPE 

P - SYSTEM  DEVELOPMENT  STEP 
R - SYSTEM  REMARK 
N - NONE 


Because  system  development  step  refers  to  either  a task  or  an 
event,  the  response  is  "P",  since  our  example  calls  for 
entering  an  event: 


ENTER  ADDITION  TYPE 

D - SYSTEM  DEVELOPMENT  STEP 
R - SYSTEM  REMARK 
N - NONE 
D 


The  screen  will  erase  and  display  the  prompt. 


ENTER  ELEMENT  TYPE  AND  NUMBER  OF  ELEMENTS 
TASK  OR  FVF.NT 
FOLLOWED  BY  NUMBER 


As  can  he  seen,  it  is  necessary  to  identify  the  element  type, 
either  task  or  event,  and  the  number  of  elements  (i.e.,  the 
numher  of  task  or  event  dates)  . An  event  is  entered  by 
responding  with  an  "E"  followed  by  the  number  of  event  dates. 
The  maximum  allowable  numher  of  event  dates  is  nine  and  if  no 
numher  is  entered,  a one  is  assumed.  Assuming  there  is  only 
one  date  associated  with  the  example  event  the  response  would 
he : 


ENTER  ELEMENT  TYPE  AND  NUMBER  OF  ELEMENTS 
TASK  OR  EVENT 
FOLLOWED  BY  NUMBER 
F. 
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SCHEDULE  then  prompts  for  the  event  title  and  event  date: 


ENTER  ELEMENT  TYPE  AND  NUMBER  OF  ELEMENTS 
TASK  OR  EVENT 
FOLLOWED  BY  NUMBER 
E 

/ TITLE  / DATE  / 

/ /--* *--/ 


An  example  response  is  shown  below: 


ENTER  ELEMENT  TYPE  AND  NUMBER  OF  ELEMENTS 
TASK  OR  EVENT 
FOLLOWED  RY  NUMBER 
E 

/ TITLE  / DATE  / 

/ADD  EXAMPLE /0l*JAN*80/ 


At  this  point  had  additional  event  dates  been  specified,  the 
system  would  prompt  the  user  for  them;  this  is  not  the  case  in 
our  example.  The  operation  is  similar  for  entering  a task 
except  that  a task  is  identified  by  a "T"  and  Instead  of  a 
single  date  a start  and  stop  date  is  required  along  with  a 
percent  completion.  Also  rather  then  a maximum  of  9 dates  only 
up  to  three  start/stop  date  combinations  are  permitted.  Two 
complete  example  operations  of  adding  single  and  multiple  tasks 
are  shown  in  Figure  4.5  along  with  the  changes  to  the  system 
record  file.  Regardless  of  the  type  of  element  added  the  next 
prompt  will  ask  the  user  for  the  application  code  to  be 
assigned  to  this  record: 


/ TITLE 

/ ADD  EXAMPLE- 

APLICATION  CODE 


/ / 


/ DATE  / 
/01*JAN*80/ 


The  user  has  the  option  of  selecting  any  combination  of 
alphabetic  or  numeric  characters  with  the  exception  of  the 
letters  A and  N . The  letter  combination  "SET"  is  chosen  for 
this  examp Lc: 


/ TITLE  / DATE  / 

/ADD  EXAMPLE /01*JAN*80/ 

APLICATION  CODE 
/SET / 
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SCHEDULE  will  now  go  ahead  and  add  the  new  record  to  the  proper 
system  as  Identified  by  the  system  record  code.  It  will 
Indicate  when  the  task  Is  complete  and  that  it  has  recycled  and 
Is  ready  for  another  addition: 


ADDITION  COMPLETE.  READY  FOR  NEXT  ADDITION. 
ENTER  RECORD  CODE 


If,  by  mistake,  the  requested  new  record  code  was  identical  to 
an  existing  record  code,  the  program  will  notify  the  user  and 
ask  for  another  new  code.  When  a good  code  Is  re-entered,  the 
program  will  add  the  new  record  and  recycle  as  above: 


FNTF.R  RECORD  CODE 
0010040 
DUPLICATE 
RF.CORDOO  10040 
ENTER  RECORD  CODE 
0010035 

ADDITION  COMPLETE.  READY  FOR  NEXT  ADDITION. 
ENTER  RECORD  CODE 


If  any  more  addition  were  required,  they  could  be  made  at  this 
time  by  repeating  the  process  discussed  herein.  Having 
completed  the  additions  the  add  loop  can  be  left  by  responding 
with  "N"  to  the  record  code  query: 

ADDITION  COMPLETE.  READY  FOR  NEXT  ADDITION. 

ENTER  RECORD  CODE 

N 


This  will  cause  the  edit  code  menu  to  be  displayed: 


ADDITION  COMPLETE.  READY  FOR  NEXT  ADDITION. 

ENTER  RECORD  CODE 

N 

ENTER  EDIT  CODE 
A - ADD 
D - DELETE 
C - CHANCE 
S - SLIP 
L - LIST 
N - HONE 
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allowing  the  user  to  leave  the  edit  mode  (enter  "N")  or  to 
select  another  edit  mode.  As  a point  of  interest.  Figure  A. 6 
is  the  new  system  listing  which  contains  the  change  entered  as 
the  example.  (See  record  0010035.) 


For  the  sake  of  completeness  and  assuming  there  are  no  further 
addition,  the  READY  mode  can  be  returned  to  by  entering  "N"  for 
the  edit  code  and  followng  these  steps: 


DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA? 
ENTER 

F.  - EDIT  DATA 
R - WRITE  REPORTS 
N - HONE 
N 

DO  YOU  WISH  TO  CONTINUE? 

N 


READY 


4.3.3  Delete 

After  responding  with  "D"  to  the  edit  code  query  to  indicate 
that  a record  is  to  be  deleted,  the  system  will  prompt  the  user 
for  the  record  code  of  the  record  to  be  deleted: 


ENTER  RECORD  CODE 


After  responding  with  the  seven-digit  record  code  number: 


ENTER  RECORD  CODE 
0010035 


the  program  will  next  indicate  that  the  requested  record  has 
been  found  and  successfully  deleted  and  prompt  the  user  for  the 
record  code  of  the  next  record  to  be  deleted. 


DELETION  COMPLETE.  READY  FOR  NEXT  DELETION. 
ENTER  RECORD  CODE 
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At  this  point,  the  user  may  continue  making  deletions  or  return 
to  the  edit  menu  by  entering  "N": 


DELETION  COMPLETE.  READY  FOR  NEXT  DELETION. 

ENTER  RECORD  CODE 

N 

ENTER  EDIT  CODE 
A - ADD 
D - DELETE 
C - CHANGE 
S - SLIP 
L - LIST 
N - NONE 


If,  by  mistake,  the  user  entered  a record  code  that  was  not  in 
the  master  file,  that  system  would  indicate  that  it  was  unable 
to  find  the  requested  record  and  prompt  the  user  for  another 
record  code*: 


ENTER  RECORD  CODE 
0010033 

0010033RECORD  NOT  FOUND 
ENTER  RECORD  CODE 


When  the  edit  menu  is  obtained,  the  user  may  request  another 
edit  mode  or  obtain  the  READY  mode  by  typing  "N"  and  completing 
the  following  steps: 


DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA? 
ENTER 

E - EDIT  DATA 
R - WRITE  REPORTS 
N - NONE 
N 

DO  YOU  WISH  TO  CONTINUE? 

N 

READY 


*It  would  be  best  at  this  point  to  return  to  the  edit  menu  and  obtain  a 
listing  of  the  system  which  contains  the  record  in  question.  31 
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A. 3. A List 


After  responding  with  an  "L"  to  the  edit  code  query  to  Indicate 
that  a listing  is  desired,  the  program  will  offer  the  option  of 
three  different  types  of  listings: 


ENTER  LIST  TYPE 

A-  SYSTEM  HEADING  RECORDS 
S - ALL  RECORDS  OF  SYSTEM  X 
P - SUBSET  OF  ALL  RECORDS  OF  SYSTEM  X 
N - NONE 


Each  of  these  options  is  discussed  separately  herein. 


System  Heading  Records 

Responding  to  the  list  type  query  with  an  "A": 


ENTER  LIST  TYPE 

A-  SYSTEM  HEADING  RECORDS 
S - ALL  RECORDS  OF  SYSTEM  X 
P - SUBSET  OF  ALL  RECORDS  OF  SYSTEM  X 
N - NONE 
A 


will  provide  a listing  giving  the  System  Number,  Major  System, 
Project  Title,  and  As-Of-Date  as  shown  below  for  all  the 
systems  contained  in  the  master  data  file. 


SYSTEM  NUMBER:  001 

MAJOR  SYSTEM:  T1EV  COMAND  BUSINESS  SYSTEMS 
PROJECT  TITLE:  SCHFDULES 

AS  OF  DATE:  12  AUG  77 


After  all  the  information  on  all  the  systems  has  been  listed, 
the  program  will  return  with  the  next  unused  system  record  code 
and  the  list  type  query: 


0020000RECORD  NOT  FOUND 
ENTER  LIST  TYPE 

A - SYSTEM  HEADING  RECORDS 
S - ALL  RECORDS  OF  SYSTEM  X 
P - SUBSET  OF  ALL  RECORDS  OF  SYSTEM  X 
N - NONE 


32 


All  Records  of  System  X. 


Respond  1 dr  to  the  list  type  query  with  an  "S": 


ENTER  LIST  TYPE 

A - SYSTEM  HEADING  RECORDS 
S - ALL  RECORDS  OF  SYSTEM  X 
P - SUBSET  OF  ALL  RECORDS  OF  SYSTEM  X 
N - NONE 
S 


will  provide  a listing  of  all  the  records  contained  within  the 
system  identified  in  the  next  prompt  question: 


ENTER  SYSTEM  CODE 


It  is  only  necessary  to  enter  the  system  number  (first  three 
digits  of  the  system  code)  in  response  to  this  question: 


ENTER  SYSTEM  CODE 
001 


SCHEDULE  will  then  display  a listing  which  gives  the  heading 
date,  all  development  steps  and  all  the  remarks  of  the 
requested  system.  This  is  the  command  which  was  used  to  obtain 
the  listing  shown  In  Figure  4. A.  This  is  immediately  followed 
by  the  list  type  query: 


ENTER  LIST  TYPE 

A - SYSTEM  HEADING  RECORDS 
S - ALL  RECORDS  OF  SYSTEM  X 
P - SUBSET  OF  ALL  RECORDS  OF  SYSTEM  X 
N - NONE 


Subset  of  All  Records  of  System  X 
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Responding  to  this  query  with  a "P": 


ENTER  LIST  TYPE 

A - SYSTEM  HEADING  RECORDS 
S - ALL  RECORDS  OF  SYSTEM  X 
P - SUBSET  OF  ALL  RECORDS  OF  SYSTEM  X 
N - NONE 
P 


will  allow  the  user  to  look  at  a specific  subset  of  records 
within  a system  identified  by  a particular  application  code. 
After  the  above  response  is  made,  the  program  will  ask  the  user 
what  system  is  to  be  examined: 


ENTER  SYSTEM  CODE 


The  response  should  be  a three  digit  number  identifying  the 
system  number: 


ENTER  SYSTEM  CODE 
001 


Next,  the  program  will  inquire  for  the  aplicode  code  (apllcode) 
that  will  identify  the  records  within  the  system  that  are  to  be 
displayed.  Remember  that  the  aplicode  entered  must  match  the 
code  within  the  record  in  both  letters  and  sequence  in  order  to 
be  displayed: 


ENTER  APPLICATION  CODE 
B - BUDGET 
E - PROJECT  ENGINEER 
H - PROJECT  MANAGER 
0 - l 04  REPORT 
P - PROCUREMENT 
Q - PRODUCT  ASSURANCE 
R - RECAP 

S - PROGRAM  SUMMARY 
T - TEST 
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Referring  to  the  example  listing  in  Figure  4.7,  it  is  seen  that 
all  the  records  have  an  aplicode  of  "E"  and  within  that  set, 
two  of  the  records  have  an  aplicode  of  "SET."  If  these  last 
two  records  were  of  interest,  they  could  be  listed  by 
responding  to  the  prompt  with: 


ENTER  APPLICATION  CODE 
B - BUDGET 
E - PROJECT  ENGINEER 
H - PROJECT  MANAGER 
0-104  REPORT 
P - PROCITREMENT 
Q - PRODUCT  ASSURANCE 
R - RECAP 

S - PROGRAM  SUMMARY 
T - TEST 

SET 


This  would  produce  a listing  as  shown  in  Figure  4.8.: 


If  Instead,  for  example,  it  was  necessary  to  list  all 
records  with  an  aplicode  of  "E",  the  response  to  the  aplicode 
query  would  be: 


ENTER  APPLICATION  CODE 
B - BUDGET 
E - PROJECT  ENGINEER 
H - PROJECT  MANAGER 
0-104  REPORT 
P - PROCUREMENT 
Q - PRODUCT  ASSURANCE 
R - RECAP 

S - PROGRAM  SUMMARY 
T - TEST 
E 


Ibis  would  produce  the  listing  contained  in  Figure  4.9.  Notice 
that  the  records  whose  application  code  is  SET  are  also  listed 
because  the  aplicode  code  requested  "T"  is  a subset  of  "SET". 
The  end  of  the  listing  is  indicated  by  the  phrase  "END  OF  MAIN 
FILE",  which  is  immediately  followed  by  the  list  type  query: 


ENTER  LIST  TYPE 

A - SYSTEM  HEADING  RECORDS 
S - ALL  RECORDS  OF  SYSTEM  X 
P - SUBSET  OF  ALL  RECORDS  OF  SYSTEM  X 
N - NONE 
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When  all  the  lists  have  been  compiled,  the  user  can  respond 
with  an  "N"  to  the  list  type  query  which  will  cause  the  edit 
code  menu  to  be  displayed: 


ENTER  EDIT  CODE 
A - ADD 
D - DELETE 
C - CHANGE 
S - SLIP 
L - LIST 
N - NONE 


Allowing  the  user  to  leave  the  edit  mode  by  entering  "N"  or  to 
select  another  edit  mode.  If  the  editing  was  complete,  the 
user  could  return  to  the  READY  mode  by  completing  these  steps: 


ENTER  EDIT  CODE 
A - ADD 
D - DELETE 
C - CHANGE 
S - SLIP 
L - LIST 
N - NONE 
N 

DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA? 
ENTER 

E - EDIT  DATA 
R - WRITE  REPORTS 
N - NONE 
N 

DO  YOU  WISH  TO  CONTINUE? 

N 


READY 


4.  3. 5 Change 

After  responding  with  a "C"  to  the  edit  code  query  to  Indicate 
that  a change  Is  to  be  made  SCHEDULE  will  prompt  the  user  for 
the  record  code  number  of  the  record  to  be  changed: 


ENTER  RECORD  CODE 


1 
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The  response  must  be  the  full  seven  digit  record  code  number. 
There  Is  no  need  to  differentiate  between  a development  step 
record,  a remark  record,  or  a heading  record,  SCHEDULE  la  able 
to  do  this  on  its  own  and  choose  the  correct  logic  path. 
Changes  to  all  of  these  record  types  are  discussed  In  the 
following  sections. 


4.3.5. 1 DEVELOPMENT  STEP  RECORD  CHANCES 


Referring  to  the  example  system  listing  In  Figure  4.4 
(System  number  001)  and  assuming  that  it  Is  necessary  to  make 
changes  to  record  number  80,  the  response  to  the  record  code 
query  Is: 


ENTER  RECORD  CODE 
0010080 


SCHEDULE  will  recognize  this  record  as  an  event  and  prompt  the 
user  to  identify  the  portion  of  the  record  to  be  changed: 


ENTER  INFORMATION  TYPE  TO  BE  CHANGED 
ENTER 

T - TITLE 
D - DATA 

A - APPLICATION  CODE 
E - ELEMENT  TYPE 
N - NONE 


If  Instead  the  record  had  been  a task,  SCHEDULE  would  display 
the  same  prompt,  however,  some  of  the  options  would  be  slightly 
different  in  their  purpose.  This  will  be  covered  In  the 
discussion  of  the  Individual  change  types  contained  herein. 


4. 3. 5. 1.1  TITLE 


After  responding  with  a "T"  to  Indicate  that  a change  Is  to  be 
made  to  the  title,  the  program  will  list  the  development  step 
type.  In  this  case  event,  the  current  title,  and  the  allowable 
format  In  which  the  new  title  can  be  entered: 


T 

/ EVENT  / 

THIS  IS  A 31  DEC  76  EVENT 
/ / 


37 


After  entering  the  new  title: 


/ EVENT  / 

THIS  IS  A 31  DEC  76  EVENT 
/THIS  IS  A NEW  TITLE / 


The  system  will  recycle  and  redisplay  the  change  menu.  At  this 
point,  the  user  may  type  "N"  In  which  case  the  program  will 
Indicate  that  the  new  change  has  been  entered  and  then  prompt 
for  a new  record  code: 


ENTER  INFORMATION  TYPE  TO  BE  CHANGED 
ENTER 

T - TITLE 
D - DATA 

A - APPLICATION  CODE 
E - ELEMENT  TYPE 
N - NONE 
N 

CHANGE  COMPLETE.  READY  FOR  NEXT  CHANGE. 
ENTER  RECORD  CODE 


or  select  a new  type  of  change. 


4.3.5. 1.2  DATA 


After  responding  with  a "D"  and  depending  on  the  type  of 
development  step  that  the  record  contains,  the  start  date/stop 
date/percent  completion  or  event  data  can  be  changed  (The 
former  refers  to  a task  and  the  latter  to  an  event) . The  basic 
process  Is  the  same  for  either  case  with  the  Information  type 
displayed  along  the  current  date  and  correct  Input  format, 
thus,  for  this  example  of  an  event  record,  the  prompt  would  be: 


D 


/ 

/ 


EVENT  DATE 
31*DEC*76 
— * * — / 


/ 
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and  In  the  case  of  a task  record  (See  Figure  4. 4,  RECORD  0090) 
it  would  be: 


D 

/ STR.DT.  / STP.DT.  / COMPLT  / 
31*DEC*75  09 MAN* 7 8 0.60 

/— * * / *_ * /***___***  / 


After  entering  a new  date  into  the  example  record: 


/ EVENT  DATE  / 
31*DEC*76 
/ 1*JAN*77/ 


the  system  will  recycle  and  redisplay  the  change  menu.  At  this 
point,  the  user  may  type  "N"  in  which  case  the  program  will 
indicate  that  new  change  has  been  entered  and  then  prompt  for  a 
new  record  code  number: 


ENTER  INFORMATION  TYPE  TO  BE  CHANGED 
ENTER 
T - TITLE 
D - DATA 

A - APPLICATION  CODE 
E - ELEMENT  TYPE 
N - NONE 
N 

CHANGE  COMPLETE.  READY  FOR  NEXT  CHANGE 
ENTER  RECORD  CODE 


or  select  a new  change  type. 


4.3.5. 1.3  APPLICATION  CODE 


After  responding  with  an  "A"  to  indicate  that  a change  is  to  be 
made  to  the  application  code  of  the  record,  the  program  will 
display  the  current  application  code  contained  in  the  record 
and  the  allowable  format  for  the  new  application  code. 
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This  will  be  the  same  for  either  development  step  type.  After 
responding  with  the  new  application  code: 


the  system  will  recycle  and  redisplay  the  change  menu.  At  this 
point,  the  user  may  type  "N",  in  which  case  the  program  will 
indicate  that  the  new  change  has  been  entered  and  then  prompt 
for  a new  record  code: 


ENTER  INFORMATION  TYPE  TO  BE  CHANGED 
ENTER 

T - TITLE 
D - DATA 

A - APPLICATION  CODE 
E - ELEMENT  TYPE 
N - NONE 
N 

CHANGE  COMPLETE.  READY  FOR  NEXT  CHANGE 
ENTER  RECORD  CODE 


or  select  a new  change  type. 


4.3.5. 1.4  ELEMENT  CODE 


This  is  a very  useful  change  step  in  that 
change  an  event  to  a task  and  visa-versa. 
with  an  "E",  the  program  will  display  the 
prompt  the  user  for  the  new  element  type 
elements. 


it  allows  the  user  to 
After  responding 
current  element  and 
and  number  of 


E 

THE  ELEMENT  TITLE  IS  ...  THIS  IS  A NEW  TITLE 
ENTER  ELEMENT  TYPE  AND  NUMBER  OF  ELEMENTS 
TASK  OR  EVENT 
FOLLOWED  BY  NUMBER 


A change  to  a task  is  accomplished  by  entering  "T",  followed  by 
the  number  of  individual  elements,  up  to  a maximum  of  three, 
within  the  task,  if  it  is  greater  than  one.  The  system  will 
then  prompt  for  the  start  date,  stop  date,  and  percent 
complete: 
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T 

/ STR.DT.  / STP.DT.  / COMPLT  / 

/ — * * — / — * * /*** ***  / 


After  entering  the  requested  data,  the  program  will  either 
recycle  and  request  the  same  data  a number  of  times  equal  to 
the  number  of  elements  previously  entered,  or  display  the 
change  type  menu. 

A change  to  an  event  is  accomplished  by  entering  "E",  followed 
by  the  number  of  individual  event  dates,  up  to  a maximum  of 
nine  if  greater  than  one.  The  system  will  then  prompt  for  the 
event  date: 


E 

/ EVENT  DATE  / 
/— * *--/ 


After  entering  the  new  date,  the  program  will  either  recycle 
and  request  the  same  information  equal  to  the  number  of  dates 
entered  above  or  display  the  change  menu. 

From  the  change  menu,  the  user  may  type  "N”,  in  which  case,  the 
program  will  indicate  that  the  change  has  been  entered  and  then 
prompt  for  a new  record  code: 


ENTER  INFORMATION  TYPE  TO  BE  CHANGED 
ENTER 

T - TITLE 
D - DATA 

A - APPLICATION  CODE 
E - ELEMENT  TYPE 
N - NONE 
N 

CHANGE  COMPLETE.  READY  FOR  NEXT  CHANGE 
ENTER  RECORD  CODE 


or  select  a new  change. 


4. 3. 5. 2 REMARKS  RECORD  CHANGES 


Referring  to  the  example  system  listing  in  Figure  4. 4 (System 
Number  001)  and  assuming  it  is  necessary  to  make  changes  to 
Record  170,  the  response  to  the  record  code  query  is: 


ENTER  RECORD  CODE 
0010170 


The  system  will  recognize  this  record  as  a remark  and  prompt 
the  user  to  identify  the  portion  of  the  record  to  be  changed. 


ENTER  ITEM  TO  BE  CHANGED 
R - REMARK 
A - APPLICATION  CODE 
N - NONE 


A detailed  discussion  of  these  options  follows. 


4. 3. 5. 2.1  REMARK 


After  responding  with  an  "R"  to  indicate  the  remark  Itself  is 
to  be  changed,  the  system  will  prompt  the  user  for  the  new 
remark  by  displaying  the  remark  currently  contained  In  the 
record  and  the  format  to  be  followed  when  entering  the  new 
remark: 


R 

ENTER  REMARKS 

MIDWEST  SCIENTIFIC  4 ENGINEERING  COMPUTER. 

/* */ 


After  spacing  over  twice  and  entering  the  new  record  as  shown: 


MIDWEST  SCIENTIFIC  & ENGINEERING  COMPUTER. 

/* */ 

SOUTHWEST  SCIENTIFIC  & ENGINEERING  COMPUTER 
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The  system  will  recycle  and  display  the  change  menu.  At  this 
point,  the  user  may  type  "N",  in  which  case  the  program  will 
indicate  that  the  new  change  has  b'*en  entered  and  then  prompt 
for  a new  record  code: 


ENTER  ITEM  TO  BE  CHANGED 
R - REMARK 
A - APPLICATION  CODE 
N - NONE 
N 

CHANGE  COMPLETE.  READY  FOR  NEXT  CHANGE. 
ENTER  RECORD  CODE 


or  elect  to  also  change  the  application  code. 


4. 3. 5. 2. 2 APPLICATION  CODE 


After  responding  with  an  "A"  to  Indicate  that  the  application 
code  of  the  remark  is  to  be  changed,  the  program  will  display 
the  current  application  code  of  the  record  and  the  proper 
format  in  which  the  new  code  should  be  entered: 


A 


E 


/ / 


After  entering  the  new  application  code: 


A 

/T 


E 

-/ 


the  system  will  recycle  and  display  the  change  menu.  At  this 
point,  the  user  may  type  "N",  in  which  case  the  program  will 
indicate  that  the  change  has  been  entered  and  then  prompt  for  a 
new  record  code: 


ENTER  ITEM  TO  BE  CHANGED 
R - REMARK 
A - APPLICATION  CODE 
N - NONE 
N 

CHANGE  COMPLETE.  READY  FOR  NEXT  CHANGE. 
ENTER  RECORD  CODE 
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or  elect  to  also  change  the  remark. 


5 

4. 3. 5. 3 HEADER  INFORMATION  CHANGES 


Referring  to  the  example  system  listing  in  Figure  4.3*  (System 
Number  001)  and  assuming  it  is  necessary  to  make  changes  to  the 
heading  information  contained  in  Record  0000,  the  response  to 
the  record  code  query  is: 


ENTER  RECORD  CODE 
0010000 


The  system  will  recognize  this  as  a header  card  and  prompt  the 
user  to  identify  what  item  in  the  header  data  is  to  be  changed. 


ENTER  HEADING  ITEM  TO  BE  CHANGED 
M - AIRCRAFT  SYSTEM 
T - SYSTEM  TITLE 
D - AS  OF  DATE 
E - START  YEAR  FOR  REPORT 
R - NUMBER  OF  YEARS  IN  REPORT 
A - APPLICATION  CODE 
N - NONE 


Detailed  discussions  of  these  options  follow. 


4. 3. 5. 3.1  AIRCRAFT  SYSTEM 


After  responding  with  an  "M"  to  indicate  that  a change  is  to  be 
made  to  the  aircraft  system  title,  the  system  will  prompt  the 
user  by  displaying  the  current  title  and  the  correct  format  for 
the  new  title: 


M 

ENTER  MAJOR  SYSTEMS 
DEV  COMMAND  BUSINESS  SYSTEMS 
/ / / 


\ 


*A11  the  information  contained  in  thej  header  record  is  not  displayed  in 
this  type  listing.  A systems  header  ( isting  is  a better  source  for  this 
Information.  a a 


After  entering  the  new  title: 


M 

ENTER  MAJOR  SYSTEMS 
DEV  COMMAND  BUSINESS  SYSTEMS 
/NEW  COMMAND  /NEW  BUSINESS / 


the  system  will  recycle  and  display  the  change  menu.  At  this 
point,  the  user  can  type  "N",  whereupon  the  program  will 
indicate  that  the  change  has  been  entered  and  prompt  the  user 
for  a new  record  code: 


ENTER  HEADING  ITEM  TO  BE  CHANGED 
M - AIRCRAFT  SYSTEM 
T - SYSTEM  TITLE 
D - AS  OF  DATE 
E - START  YEAR  FOR  REPORT 
R - NUMBER  OF  YEARS  IN  REPORT 
A - APPLICATION  CODE 
N - NONE 
NN 

CHANGE  COMPLETE.  READY  FOR  NEXT  CHANGE. 
ENTER  RECORD  CODE 


or  select  a new  type  of  change. 


4. 3. 5. 3. 2 SYSTEM  TITLE 


After  responding  with  a ”T"  to  indicate  that  a change  must  be 
made  to  the  system  title,  the  system  will  prompt  the  user  by 
displaying  the  current  title  and  the  correct  format  for  the  new 
system  title: 


T 

ENTER  TITLE 
SCHEDULES 

/ / / 


After  en.reilng  the  new  system  title: 


ENTER  TITLE 
SCHEDULES 

/NEW  SCHEDULES / / 
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the  program  will  recycle  and  display  the  change  menu.  At  this 
time,  the  user  can  type  "N",  In  which  case  the  system  will 
Indicate  that  the  change  has  been  made  and  prompt  the  user  for 
a new  record  code: 


ENTER  HEADING  ITEM  TO  BE  CHANGED 
M - AIRCRAFT  SYSTEM 
T - SYSTEM  TITLE 
D - AS  OF  DATE 
E - START  YEAR  FOR  REPORT 
R - NUMBER  OF  YEARS  IN  REPORT 
A - APPLICATION  CODE 
N - NONE 
N 

CHANGE  COMPLETE.  READY  FOR  NEXT  CHANGE. 
ENTER  RECORD  CODE 


or  select  a new  type  of  change. 


4.3. 5. 3. 3 AS-OF-DATE 


After  responding  with  "D"  to  Indicate  that  a chanRe  is  to  be 
made  to  the  As-of-Date,  the  program  will  prompt  the  user  by 
displaying  the  current  As-of-Date  and  the  correct  format  for 
the  new  As-of-Date: 


AS  OF  DATE 
12  AUC  77 
/--* *— / 


After  the  new  date  has  been  entered: 


D 

AS  OF  DATE 
12  AUG  77 
/ 1*JUN*78/ 
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the  program  will  recycle  and  display  the  change  menu.  At  this 
point,  the  user  can  either  type  "N",  in  which  case,  the  system 
will  indicate  when  the  change  has  been  entered  and  prompt  the 
user  for  a new  record  code: 


ENTER  HEADING  ITEM  TO  BE  CHANGED 
M - AIRCRAFT  SYSTEM 
T - SYSTEM  TITLE 
D - AS  OF  DATE 
E - START  YEAR  FOR  REPORT 
R - NUMBER  OF  YEARS  IN  REPORT 
A - APPLICATION  CODE 
N - NONE 
N 

CHANGE  COMPLETE.  READY  FOR  NEXT  CHANGE. 
ENTER  RECORD  CODE 


or  select  a new  change  option. 


4. 3. 5. 3.4  START  YEAR  FOR  REPORT 


After  responding  with  "E"  to  indicate  the  starting  year  for  the 
report  is  to  be  changed,  the  system  will  prompt  the  user  by 
displaying  the  current  start  year  in  the  record  and  the  format 
for  the  new  starting  year: 


E 

ENTER  START  YEAR  FOR  REPORT 
11 

/ / 


After  the  last  two  figures  of  the  new  starting  year  have  been 
entered : 


E 

ENTER  START  YEAR  FOR  REPORT 
11 

/ 7 8 / 


or  select  a new  change  option. 


4. 3. 5. 3. 5 NUMBER  OF  YEARS  IN  REPORT 
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After  responding  with  R"  to  indicate  there  Is  a need  to  change 
the  number  of  years  In  report  value  In  the  heading  information 
the  system  will  prompt  the  user  by  displaying  the  current 

number  of  years  in  the  report  and  the  correct  format  for  the 
new  value: 


R 

F.NTKR  NUMBER  OF  YEARS  IN  REPORT 
6 

/ / 


Remember  that  this  number  may  not  be  larger  than  15. 
After  entering  the  new  value: 

R 

ENTER  NUMBER  OF  YEARS  IN  REPORT 
6 

/8 / 


the  system  will  recycle  and  display  the  change  menu.  At  this 
point,  the  user  can  either  type  "N",  whereupon  the  system  will 
indicate  when  the  change  has  been  entered  and  prompt  the  user 
for  a new  record  code: 


ENTER  HEADING  ITEM  TO  BE  CHANGED 
M - AIRCRAFT  SYSTEM 
T - SYSTEM  TITLE 
D - AS  OF  DATE 
E - START  YEAR  FOR  REPORT 
R - NUMBER  OF  YEARS  IN  REPORT 
A - APPLICATION  CODE 
N - NONE 
N 

CHANGE  COMPLETE.  READY  FOR  NEXT  CHANGE. 
ENTER  RECORD  CODE 


or  select  a new  change  option. 
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4. 3. 5. 3.6  APPLICATION  CODE 


After  entering  "A"  to  Indicate  there  Is  to  be  a change  to  the 
application  code  of  the  header  card  data,  the  system  will 
prompt  the  user  by  displaying  the  current  application  code  and 
the  correct  format  for  the  new  code: 


A 

E 

/ / 


After  entering  a new  application  code: 


A 

E 

/T / 


the  program  will  recycle  and  display  the  change  menu.  At  this 
time,  the  user  may  either  type  "N",  whereupon  the  system  will 
indicate  when  the  change  has  been  entered  and  prompt  the  user 
for  a new  record  code: 


ENTER  HEADING  ITEM  TO  BE  CHANCED 
M - AIRCRAFT  SYSTEM 
T - SYSTEM  TITLE 
D - AS  OF  DATE 
E - START  YEAR  FOR  REPORT 
R - NUMBER  OF  YEARS  IN  REPORT 
A - APPLICATION  CODE 
N - NONE 
N 

CHANCE  COMPLETE.  READY  FOR  NEXT  CHANCE. 
ENTER  RECORD  CODE 


or  select  a new  change  option. 

4. 3. 5. 4 RETURN 
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After  all  changes  have  been  made,  rather  than  responding  to  the 
record  query  with  the  record  number  of  the  next  record  to  be 
changed,  enter  "N".  This  will  return  control  to  the  edit  menu. 


ENTER  RECORO  CODE 
N 

ENTER  EDIT  DATA 
A - ADD 
D - DELETE 
C - CHANGE 
S - SLIP 
L - LIST 
N - NONE 


From  this  point,  the  user  may  request  another  edit  mode  or  move 
on  to  another  task.  The  READY  mode  may  be  obtained  by 
completing  these  steps: 


ENTER  RECORD  CODE 
N 

ENTER  EDIT  CODE 
A - AD 
D - DELETE 
C - CHANCE 
S - SLIP 
L - LIST 
N - NONE 
N 

DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA? 
ENTER 

E - EDIT  DATA 
R - WRITE  REPORTS 
N - NONE 
N 

DO  YOU  WISH  TO  CONTINUE? 

N 


READY 


.3.6  Slip 


After  responding  with  an  "S"  to  the  edit  code  query  to  Indicate 
that  some  or  even  all  of  the  SCHEDULE  data  for  a system  la  to 
be  slipped  (i.e.,  moved  back  In  time)  the  program  will  ask  for 
the  system  code  of  the  system  SCHEDULE  on  which  this  action  la 
to  be  performed: 


s 

ENTER  SYSTEM  CODE 


The  response  need  only  be  the  three  digit  system  code,  which  is 
the  first  three  digits  of  the  record  code  for  esch  record  In 
the  system.  Using  the  example  system  code  001: 


ENTER  SYSTEM  CODE 
001 


The  system  will  next  prompt  the  user  to  determine  how  many 
records  are  to  be  slipped: 


HOW  MANY  RECORDS  DO  YOU  WANT  TO  SLIP? 

A - ALL  DATES  (STARTS STOP)  THAT  OCCUR  AFTER  DATE  X 
3 - ONLY  STOP  DATES  THAT  OCCUR  AFTER  DATA  X 
N - NONE 


A response  of  "A"  will  cause  all  dates,  that  Is,  start,  stop, 
and  event  dates,  after  date  x (which  will  be  entered  In  a 
moment)  to  be  slipped.  "S"  will  cause  only  the  stop  and  event 
dates  after  date  x,  to  he  slipped.  Assuming  the  example  system 
in  Figure  4.10  has  a requirement  to  slip  all  the  dates  the 
response  is: 


HOW  MANY  RECORDS  DO  YOU  WANT  TO  SLIP? 

A - ALL  DATES  (START* STOP)  THAT  OCCUR  AFTER  DATE  X 
S - ONLY  STOP  DATES  THAT  OCCUR  AFTER  DATA  X 
N - NONE 
A 


The  program  will  then  prompt  for  the  reference  date  x after 
which  all  the  slips  will  take  place: 


ENTER  SLIP  REFERENCE  DATE  X 
/--* *--/ 
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After  entering  the  reference  date  x: 


ENTER  SLIP  REFERENCE  DATE  X 
/ 1*JAN*82/ 


The  system  will  inquire: 


SHOULD  THE  SLIP  DEPEND  ON  APLI  CODE? 
ENTER 

Y - YES 
N - NO 


This  gives  the  user  a certain  degree  of  selectivity  over  which 
record  are  to  be  slipped  rather  than  being  forced  to  change  all 
the  records  of  a system.  If  a yes  response  is  given,  the  user 
will  be  asked  for  the  application  code  of  the  recorda  to  be 
slipped: 


Y 

ENTER  APLICODE  FOR  STEPS  TO  BE  SLIPPED 
/ / 


A no  response  will  simply  bypasB  this  question, 
case,  SCHEDULE  will  next  ask  for: 


In  either 


ENTER^NUMBER  OF  MONTHS  OF  SLIPPAGE 


The  reponse  to  this  question  must  be  the  slippage  in  months  in 
a decimal  format.  For  example,  a two  year  slip  is  24.  months, 
le  a two  week  slip  is  .5  months.  If  the  example  system  slip 
was  8 lx  months,  the  response  would  be: 


i'i 


J 


To  avoid  any  mlacakea  (Slip  cannot  ba  ravaraad  ahort  of 
manually  changing  all  tha  dataa  Inadvertantly  moved  back) 
SCHEDULE  will  dlaplay  tha  number  It  haa  read  In  daclmal  format 
and  aak  If  It  la  corract: 


ENTER  NUMBER  OF  MONTHS  OF  SLIPPAGE 

/ 6 / 

6.00 

DO  WE  AGREE  ON  THE  NUMBER  OF  MONTHS? 


If  the  original  reaponae  had  not  been  alx  months  the  no 
response  ("N")  will  cause  the  system  to  recycle  and  allow  the 
user  to  re-enter  the  number  of  months  to  be  slipped: 


DO  WE  AGREE  ON  THE  NUMBER  OF  MONTHS? 
N 

ENTER  NUMBER  OF  MONTHS  OF  SLIPPAGE 

/ / 


alx  la  correct,  so  a positive  response  (i.e.,  yea)  la 
appropriate. 


DO  WE  AGREE  ON  THE  NUMBER  OF  MONTHS? 
Y 


Once  this  yes  response  Is  received,  SCHEDULE  will  go  ahead  and 
make  the  slips  in  the  system  SCHEDULE  as  Instructed.  Figure 
4.10  la  the  original  SCHEDULE  and  Figure  4.11  la  the  slipped 
SCHEDULE.  When  completed,  the  edit  menu  la  displayed: 


DO  WE  AGREE  ON  THE  NUMBER  OF  MONTHS? 

Y 

ENTER  EDIT  CODE 
A - ADD 
D - DELETE 
C - CHANGE 
S - SLIP 
L - LIST 
N - NONE 
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allowing  the  user  to  leave  the  edit  mode  (enter  "N")  or  to 
select  a new  edit  mode.  To  obtain  the  "READY”  mode  from  this 
point,  complete  the  following  steps: 


ENTER  EDIT  CODE 
A - ADD 
D - DELETE 
C - CHANGE 
S - SLIP 
L - LIST 
N - NONE 
N 

DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA? 
ENTER 

E - EDIT  DATA 
R - WRITE  REPORTS 
N - NONE 
N 

DO  YOU  WISH  TO  CONTINUE? 

N 


READY 


4.4  WRITE  REPORTS 


4.4.1  Craphic  Report 


From  the  READY  mode,  call  up  SCHEDULE  as  shown: 


READY 

EXEC  SCHEDULE 


The  screen  will  clear  and  the  system  will  inquire: 


DO  YOU  NEED  FULL  PROMPTING? 


to  which  a yes/no  reply  is  required.  A yes  response  will  cause 
acceptable  responses  to  be  displayed  after  multiple  choice 
questions  and  a no  response  will  suppress  this.  An  example  of 
both  cases  is  shown  in  Figure  4.1.  Full  prompting  will  be  used 
for  this  example,  so  the  reply  to  this  question  is  yes  (Y) : 


DO  YOU  NEED  FULL  PROMPTING? 
Y 


SCHEDULE  will  Chen  inquire  as  Co  Che  system  type: 


ENTER  SYSTEM  TYPE 

N - NEW  (THE  SYSTEM  DOES  NOT  HAVE  A SYSTEM  CODE) 
0 - OLD  (THE  SYSTEM  IS  IN  THE  MAIN  FILE) 


which  muse  be  responded  Co  wlch  old  since  reporc  writing  muse 
be  performed  on  old  (l.e.,  previously  encered)  data  secs,  Chus: 


ENTER  SYSTEM  TYPE 

N - NEW  (THE  SYSTEM  DOES  NOT  HAVE  A SYSTEM  CODE) 
0 - OLD  (THE  SYSTEM  IS  IN  THE  MAIN  FILE) 

0 


Having  idencified  che  syscem  Cype,  che  Cask  to  be  performed 
wlch  che  data  set  must  be  stated: 


DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA? 
ENTER 

E - EDIT  DATA 
R - WRITE  REPORTS 
N - NONE 


Obviously,  to  write  reports,  the  response  is  "R": 


DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA? 
ENTER 

E - EDIT  DATA 
R - WRITE  REPORTS 
N - NONE 
R 


Once  the  system  knows  that  reports  are  to  be  written,  it  must 
be  told  which  systems  are  to  be  reported  on: 


HOW  MANY  SYSTEMS  DO  YOU  WANT  TO  SEE? 
ENTER 
A - ALL 
N - NONE 

S - SUBSET  OF  ALL 
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Answering  "A"  would  result  In  a report  for  all  the  systems 
contained  in  the  accessed  dataset*  For  this  example,  the 
response  will  be  "S",  which  will  permit  selective  choosing  of 
the  system(s)  to  be  reported  on  in  a later  step,  (If  "A"  was 
the  response  in  this  case  there  would  be  no  query  at  a later 
step  to  identify  the  systems  to  be  reported  on.)  hence; 


HOW  MANY  SYSTEMS  DO  YOU  WANT  TO  SEE? 
ENTER 
A - ALL 
N - NONE 

S - SUBSET  OF  ALL 
S 


The  system  will  then  prompt  the  user  for  a name  up  to  20 
characters  long  of  the  office  preparing  the  reports: 


ENTER  OFFICE  PREPARING  REPORTS 


Per  the  example  report  this  is  entered  as: 


ENTER  OFFICE  PREPARING  REPORTS 
SECO 


Recall  that  earlier  it  was  requested  to  report  on  a selected 
subset  of  systems,  these  systems  must  now  be  identified 
individually  by  file  code: 


ENTER  SYSTEM  CODE 

XXX0000  - SYSTEM  CODE 

N - NONE  / NO  MORE  SYSTEMS 


For  this  example,  only  one  file  will  be  requested  for  viewing 
as: 


ENTER  SYSTEM  CODE 

XXX0000  - SYSTEM  CODE 

N - NONE  / NO  MORE  SYSTEMS 
0010000 
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It  Is  noc  required  to  enCer  aLL  digits  because  the  program  is 
only  looking  for  the  first  three  digits  to  which  it 
automatically  adds  the  remaining  four  zeros.  It  is  possible  to 
narrow  done  the  scope  of  the  report  further  by  specifying  that 
only  records  with  a particular  application  code  (APLICODE)  be 
displayed.  (These  codes  are  assigned  at  the  time  the  system  is 
entered  into  the  master  storage  file).  Care  must  be  taken  that 
the  APLICODE  requested  here  match  in  both  letters  and  sequence 
the  APLICODE  of  the  record  as  it  appears  in  the  data  file. 


ENTER  (OFFICE /SUBJECT/ REPORT/ APLICODE)  OF  INTEREST 
A - ALL 
B - BUDGET 
F.  - PROJECT  ENGINEER 
H - PROJECT  MANAGER 
0-104  REPORT 
P - PROCUREMENT 
Q - PRODUCT  ASSURANCE 
R - RECAP 

S - PROGRAM  SUMMARY 
T - TEST 
N - NONE 


The  response  in  this  example  will  be  "A",  which  will  cause  all 
the  records  contained  in  the  system  data  file  to  be  Included  in 
the  report  rather  than  a particular  subset. 


ENTER  (OFFICE/SUBJECT/REPORT/APLICODE)  OF  INTEREST 
A - ALL 
R - BUDGET 

E - PROJECT  ENGINEER 
H - PROJECT  MANAGER 
0-104  REPORT 
P - PROCUREMENT 
Q - PRODUCT  ASSURANCE 
R - RECAP 

S - PROGRAM  SUMMARY 
T - TEST 
N - NONE 
A 


The  screen  will  again  blank  and  the  system  will  ask  that  a 
report  title,  up  to  40  characters  long,  be  entered: 


ENTER  REPORT  TITLE 
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IMIlH 


Figure  4.12  is  a copy  of  an  example  report  that  will  be' 
recreated  here,  whose  title  is  entered  as  shown: 


ENTER  REPORT  TITLE 
SAMPLE  REPORT  (GRAPHICS) 


The  system  will  indicate  that  the  requested  file  is  prepared 
and  prompt  for  another  file  code  to  which  the  reply  "N"  will  be 
given  to  indicate  that  no  more  systems  are  to  be  included  in 
the  report: 


ENTER  SYSTEM  CODE 

XXX0000  - SYSTEM  CODE 

N - NONE  / NO  MORE  SYSTEMS 
0010000 

FILE  001  IS  READY. 

ENTER  SYSTEM  CODE 

XXX0000  - SYSTEM  CODE 

N - NONE  / NO  MORE  SYSTEMS 
N 


If  the  reply  to  the  inquiry  covering  the  number  of  systems  had 
been  "ALL",  instead  of  asking  for  the  file  codes,  the  system 
would  search  on  its  own  indicating  what  files  had  been 
processed  for  reporting  until  an  end-of-file  condition  is 
reached.  For  this  example,  this  would  appear  as; 


ENTER  OFFICE  PREPARING  REPORTS 
SECO 

FILE  001  IS  READY. 
0020000RECORD  NOT  FOUND 


Regardless  of  the  number  of  files  requested  in  each  case,  the 
next  prompt  is: 


ENTER  TERMINAL  TYPE 
ENTER 

G - TEXTRONIX  4014  (GRAPHICAL  OUTPUT) 

P - TEXAS  INSTRUMENTS  (PRINTER  OUTPUT) 
N - NONE 
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The  response  must  Indicate  the  type  of  terminal  on  which  the 
report  will  be  displayed,  here  a Textronlx  4014.  thus: 


ENTER  TERMINAL  TYPE 
ENTER 

G - TEXTRONIX  4014  (GRAPHICAL  OUTPUT) 

P - TEXAS  INSTRUMENTS  (PRINTER  OUTPUT) 
N - NONE 


The  system  next  displays  a menu  which  offers  three  plotting 
options  and  a return: 


TYPE  C FOR  CONTINUOUS  PLOTS 

TYPE  R TO  RERUN  PLOTS 

TYPE  S TO  RETURN  TO  MAIN  PROGRAM 

HIT  SPACE  HAR  FOR  INDIVIDUAL  PLOTTING 


"C"  will  continuously  plot  all  the  reports  and  automatically 
make  a copy  of  each  page.  "R"  permits  a replotting  of  all  the 
reports  without  having  to  return  to  the  main  program  and 
re-entering  the  required  information.  "S"  returns  control  to 
the  main  program.  The  space  bar  (i.e.,  blank  character)  allows 
the  user  to  go  through  the  requested  reports  and  manually  make 
a copy  if  desired.  The  response  for  this  example  will  be  the 
space  bar. 


SCHEDULE  must  now  prompt  for  two  final  pieces  of 
Information,  first: 


ENTER  FORM  START  DATE  FOR: EXAMPLE  OF  A REPORT 
7 


This  request  Is  for  the  last  digits  of  the  calandar  year  which 
will  appear  at  the  left-hand  margin  of  the  time-frame  portion 
of  the  report.  Presently,  this  number  must  be  larger  than  76 
and  need  not  reflect  the  current  date  or  fiscal  year.  The 
current  date  is  displayed  as  a vertical  dotted  line  on  the 
report  form  automatically  (see  Figure  4.12).  For  this  example, 
the  form  will  be  started  with  CY77: 


ENTER  FORM  START  DATE  FOR: EXAMPLE  OF  A REPORT 
7 

77 


The  next  and  last  prompt  prior  to  the  actual  plotting  of  the 
graph(s)  is: 


ENTFR  NUMBER  OF  YEARS  IN  FORM  (1-15) 
? 


The  reply  must  fall  within  the  limits  shown,  and  for  this 
example,  will  be  nine  years: 


ENTFR  NUMBER  OF  YEARS  IN  FORM  (1-15) 
? 

9 


At  this  point,  the  system  will  begin  producing  the  reports  in 
the  requested  format.  When  all  the  requested  Bystems  have  been 
plotted,  the  plotting  format  menu  will  again  be  displayed, 
offering  the  same  options  To  complete  the  example,  "S"  would 
be  entered  to  return  control  to  the  main  program  and  by 
responding  "NONE"  to  the  remaining  prompts,  the  READY  mode  will 
be  obtaining. 


4.4.2  Typewriter  Report 


From  the  READY  mode,  call  up  SCHEDULE  as  shown: 


READY 

EXEC  SCHEDULE 


The  screen  will  clear  and  the  system  will  inquire: 


DO  YOU  NEED  FULL  PROMPTING? 


to  which  a yes/no  reply  is  required.  A yes  response  will  cause 
acceptable  responses  to  be  displayed  after  multiple  choice 
questions  and  a no  response  will  suppress  this.  An  example  of 
both  cases  is  shown  in  Figure  4.1.  Full  prompting  will  be  used 
for  this  example,  so  the  reply  to  this  question  is  yes  (Y) : 


DO  YOU  NEED  FULL  PROMPTING? 
Y 


Answering  "A"  would  result  In  a report  for  all  the  systems 
contained  In  the  accessed  dataset.  For  this  example,  the 
response  will  be  "S",  which  will  permit  selective  choosing  of 
SCHEDULE  will  then  Inquire  as  to  the  system  type: 


ENTER  SYSTEM  TYPE 

N - NEW  (THE  SYSTEM  DOES  NOT  HAVE  A SYSTEM  CODE) 
0 - OLD  (THE  SYSTEM  IS  IN  THE  MAIN  FILE) 


which  must  be  responded  to  with  old  since  report  writing  must 
be  performed  on  old  (i.e.,  previously  entered)  data  sets,  thus: 

ENTER  SYSTEM  TYPE 

N - NEW  (THE  SYSTEM  DOES  NOT  HAVE  A SYSTEM  CODE) 

0 - OLD  (THE  SYSTEM  IS  IN  THE  MAIN  FILE) 

0 


Having  identified  the  system  type,  the  task  to  be  performed 
with  the  data  set  must  be  stated: 


DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA? 
ENTER 

E - EDIT  DATA 
R - WRITE  REPORTS 
N - NONE 


Obviously,  to  write  reports,  the  response  is  "R": 


DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA? 
ENTER 

E - EDIT  DATA 
R - WRITE  REPORTS 
N - NONE 
R 


Once  the  system  knows  that  reports  are  to  be  written,  it  must 
be  told  which  systems  are  to  be  reported  on: 


HOW  MANY  SYSTEMS  DO  YOU  WANT  TO  SEE? 
ENTER 
A - ALL 
N - NONE 

S - SUBSET  OF  ALL 


Answering  "A"  would  result  In  a report  for  all  the  systems 
contained  In  the  accessed  dataset.  For  this  example,  the 
response  will  be  "S",  which  will  permit  selective  choosing  of 
the  system(s)  to  be  reported  on  in  a later  step,  hence: 


HOW  MANY  SYSTEMS  DO  YOU  WANT  TO  SEE? 
ENTER 
A - ALL 
N - NONE 

S - SUBSET  OF  ALL 
S 


The  system  will  then  prompt  the  user  for  a name  up  to  20 
characters  long  of  the  office  preparing  the  reports: 


ENTER  OFFICE  PREPARING  REPORTS 


Per  the  example  report  this  is  entered  as: 


ENTER  OFFICE  PREPARING  REPORTS 
SECO 


Recall  that  earlier  it  was  requested  to  report  on  a selected 
subset  of  systems,  these  systems  must  now  be  identified 
individually  by  file  code: 


ENTER  SYSTEM  CODE 

XXX0000  - SYSTEM  CODE 

N - NONE  / NO  MORE  SYSTEMS 


For  this  example,  only  one  file  will  be  requested  for  viewing 
as: 


ENTER  SYSTEM  CODE 

XXX0000  - SYSTEM  CODE 

N - NONE  / NO  MORE  SYSTEMS 
0010000 
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It  Is  not  required  to  enter  all  digits  because  the  program  Is 
only  looking  for  the  first  three  digits  to  which  It  will 
automatically  add  the  remaining  four  zeros.  It  Is  possible  to 
narrow  done  the  scope  of  the  report  further  by  specifying  that 
only  records  with  a particular  application  code  (APLICODE)  be 
displayed.  (These  codes  are  assigned  at  the  time  the  system  Is 
entered  Into  the  master  storage  file.)  Care  must  be  taken  that 
the  APLICODE  requested  here  match  In  both  letters  and  sequence 
the  APLICODE  of  the  record  as  it  appears  In  the  data  file. 


ENTER  (OFFICE/SUBJECT/REPORT/APLICODE)  OF  INTEREST 
A - ALL 
B - BUDGET 

E - PROJECT  ENGINEER 
H - PROJECT  MANAGER 
0-104  REPORT 
P - PROCUREMENT 
Q - PRODUCT  ASSURANCE 
R - RECAP 

S - PROGRAM  SUMMARY 
T - TEST 
N - NONE 


The  response  In  this  example  will  be  "A",  which  will  cause  all 
the  records  contained  in  the  system  data  file  to  be  Included  in 
the  report  rather  than  a particular  subset. 


ENTER  (OFFICE/SUBJECT/REPORT/APLICODE)  OF  INTEREST 
A - ALL 
B - BUDGET 
E - PROJECT  ENGINEER 
H - PROJECT  MANAGER 
0-104  REPORT 
P - PROCUREMENT 
Q - PRODUCT  ASSURANCE 
R - RECAP 

S - PROGRAM  SUMMARY 
T - TEST 
N - NONE 
A 


The  screen  will  again  blank  and  the  system  will  ask  that  a 
report  title,  up  to  40  characters  long,  be  entered: 


ENTER  REPORT  TITLE 
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Figure  4.13  is  a copy  of  an  example  report  that  will  be 
recreated  here,  whose  title  Is  entered  as  shown: 


ENTER  REPORT  TITLE 
SAMPLE  REPORT  (PRINTER) 


The  system  will  indicate  that  the  requested  file  is  prepared 
and  prompt  for  another  file  code;  to  indicate  that  no  more 
systems  are  to  be  included  in  the  report  the  reply  "N"  will  be 
given: 


ENTER  SYSTEM  CODE 

XXX0000  - SYSTEM  CODE 

N - NONE  / NO  MORE  SYSTEMS 
0010000 
FILE  IS  READY. 

ENTER  SYSTEM  CODE 

XXX0000  - SYSTEM  CODE 

N - NONE  / NO  MORE  SYSTEMS 
N 


If  the  reply  to  the  inquiry  covering  the  number  of  systems  had 
been  "ALL",  Instead  of  asking  for  the  file  codes,  the  system 
would  search  on  its  own  indicating  what  files  had  been 
processed  for  reporting  until  an  end-of-file  condition  is 
reached.  For  this  example,  this  would  appear  as; 


ENTER  OFFICE  PREPARING  REPORTS 
SEC0 

FILE  001  IS  READY. 
0020000RECORD  NOT  FOUND 


Regardless  of  the  number  of  files  requested  in  each  case,  the 
next  prompt  is: 


ENTER  TERMINAL  TYPE 
ENTER 

G - TEXTRONIX  4014  (GRAPHICAL  OUTPUT) 

P - TEXAS  INSTRUMENTS  (PRINTER  OUTPUT) 
N - NONE 
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The  response  must  Indicate  the  type  of  terminal  on  which  the 
report  will  be  displayed,  here  a Textronlx  4014,  thus: 


ENTER  TERMINAL  TYPE 
ENTER 

G - TEXTRONIX  4014  (GRAPHICAL  OUTPUT) 

P - TEXAS  INSTRUMENTS  (PRINTER  OUTPUT) 
N - NONE 


At  this  point  SCHEDULE  will  promptly  begin  to  print  out  the 
report  In  the  format  shown  in  Figure  4.13. 


4.5  SPECIAL  OPTIONS 


4.5.1  General 

This  section  discusses  options  which  are  beyond  the  scope  of 
the  purpose  of  the  first  three  sections  which  is  to  teach  the 
user  the  basic  operation  of  the  system.  This  is  not  to  say 
that  these  options  are  in  anyway  more  difficult  to  use,  but 
rather  that  they  are  not  required  to  successfully  utilize  the 
system  in  a meaningful  manner.  The  basic  purpose  for  all  of 
these  system  options  is  to  improve  the  ability  of  the  user  to 
tailor  the  report  writing  capability  to  his  specific  needs. 
These  options  are  part  of  the  SCHEDULE  program  but  unless 
specifically  enable  by  the  SCHEDULE  programmer  will  not  appear 
as  options  during  a SCHEDULE  session.  There  are  currently  four 
options  available  the  details  of  which  are  discussed  herein. 


4.5.2  Window 

The  window  option  allows  the  user  to  display  in  a report  only 
the  tasks  which  either  occur  or  begin  during  a specific  period 
of  time.  The  time  period  which  is  of  interest  is  entered  into 
the  program  in  reply  to  prompts  which  are  displayed  after  the 
window  option  has  been  requested.  This  request  Is  made  early 
in  the  report  writing  procedure  as  shown  here: 


DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA? 
ENTER 

E - EDIT  DATA 
R - WRITE  REPORTS 
N - NONE 
R 

YOU  DO  WANT  A WINDOW  OF  DATA? 
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To  enable  the  window  option,  the  response  should  he  yes: 

DO  YOU  WANT  A WINDOW  OF  DATA? 

Y 

The  system  will  then  prompt: 


ENTER  LOWER  TIME  LIMIT 
/—* *—/ 


which  la  a request  for  the  earliest  date  to  be  Included  in  the 
window.  For  this  example,  the  response  will  be: 


ENTER  LOWER  TIME  LIMIT 
/ 1*JAN*78/ 


The  next  prompt: 


ENTER  LOWER  TIME  LIMIT 
/ 1*JAN*78/ 

ENTER  UPPER  TIME  LIMIT 
/--* *--/ 


for  the  latest  date  to  be  Included  in  the  window.  For 
this  example,  the  response  is: 


ENTER  UPPER  TIME  LIMIT 
/ l*JAN*79/ 


At  this  point,  the  system  vil  return  to  the  normal  report 
writing  procedure: 


ENTER  UPPER  TIME  LIMIT 


/ 1*JAN*79/ 

HOW  MANY  SYSTEMS  DO  YOU  WANT  TO  SEE? 
ENTER 
A - ALL 

S - SUBSET  OF  ALL 
N - NONE 


as  covered  In  Section  3.0.  At  this  point,  the  system  has  the 
required  Information  to  adjust  the  form  as  necessary  and 
display  the  graph.  The  system  will  compute  the  number  of  years 
to  bo  Included  In  the  report,  based  on  the  data  specifying  the 
window,  hence,  this  question  will  not  be  asked.  This  will  be 
the  only  deviation  from  the  normal  report  writing  steps. 

Figures  4.14  and  4.15  are  a before  and  after  example 
Illustrating  the  affect  of  the  window  command  based  on  the 
values  entered  within  this  example. 


4.5.3  Lines  Per  Page 

SCHEDULE  has  a default  of  30  lines  per  page  which  means  that 
when  writing  a report,  a second  page  will  not  be  required  by 
the  program  until  more  than  30  items  are  entered.  At  some 
time,  It  may  be  necessary  to  change  the  default  value  to  a 
lesser  value;  this  may  be  accomplished  through  the  lines  per 
page  option.  If  this  option  is  enabled  a prompt  will  appear 
during  the  normal  report  writing  procedure  as: 


ENTER  OFFICE  PREPARING  REPORTS 
SECO 

DO  YOU  WANT  THE  MAXIMUM  LINES  PER  PAGE  TO  BE  30 


A yes  to  this  question  will  cause  normal  processing  to  continue 
as  shown : 


DO  YOU  WANT  THE  MAXIMUM  LINES  PER  PAGE  TO  BE  30 
Y 

ENTER  FILE  CODE  FOR  SYSTEM 
XXX0000  - FILE  CODE 

N - NONE  / NO  MORE  SYSTEMS 


However,  a no  response  will  cause  the  following  prompt  to  be 
displayed : 


ENTER  OFFICE  PREPARING  REPORTS 
SECO 

no  YOU  WANT  THE  MAXIMUM  LINES  PER  PAGE  TO  BE  30 
N 

ENTER  NEW  MAXIMUM  NUMBER  OF  LINES  PER  PAGES 


The  response  to  this  query  may  not  he  greater  than  30  nor  less 
than  nine.  Figure  A. 16  shows  a report  that  was  processed 
normally  and  Figure  4.17  shows  the  same  report  processed  with 
the  line  per  page  option.  Notice  that  the  second  report  has 
spaced  the  items  and  is  generally  in  a better  format. 

Realizing  from  the  first  report  that  there  were  35  items,  it 
was  logical  to  change  the  maximum  number  of  lines  per  page  to 
eighteen,  hence: 


ENTER  NEW  MAXIMUM  NUMBER  OF  LINES  PER  PAGES 
18 


This  is  all  the  information  required  by  the  lines  per  page 
option  and  from  this  point,  processing  continues  normally: 


ENTER  NEW  MAXIMUM  NUMBER  OF  LINES  PER  PAGES 

18 

ENTER  FILE  CODE  FOR  SYSTEM 
XXX0000  - FILE  CODE 

N - NONE  / NO  MORE  SYSTEMS 


4.5.4  Application  Code  Prompting  List 

Different  offices  may  use  different  definitions  for  various 
application  code  letters,  thus  requiring  different  prompting 
menus  displayed  to  the  user  when  writing  a report.  This  option 
allows  the  user  (or  using  office.)  to  display  a particular 
suggested  list  of  application  code  definitions  or  to  have  no 
list  displayed  at  all.  The  no-list  option  will  appear  in  the 
normal  processing  stream  as: 


ENTER  FILE  CODE  FOR  SYSTEM 
XXX0000  - FILE  CODE 

N - NONE  / NO  MORE  SYSTEMS 

001 

ENTER  (OFFICE/ SUB  JECT/REPORT/APLICODF.)  OF  INTEREST 
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The  Project  Manager's  Office  suggested  list  will  appear  as: 


ENTER (OFFICE/ SUBJECT/ REPORT/ APLICODE)  OF  INTEREST 
A - ALL 
B - BUDGET 

F.  - PROJECT  ENGINEER 
H - PROJECT  MANAGER 
0-104  REPORT 
P - PROCUREMENT 
Q - PRODUCT  ASSURANCE 
R - RECAP 

S - PROGRAM  SUMMARY 
T - TEST 
N - NONE 


and  the  Research  and  Development  Office  suggested  list  will 
appear  as: 


ENTER (OFFICE/SUBJECT/REPORT/APLICODE)  OF  INTEREST 
A - ALT, 

C - COMPTROLLER 

R - PLANS  & ANALYSIS 

P - PROCUREMENT 

F,  - DEVELOPMENT  S.  ENGINEERING 

F - ASTIO 

T - TRADOC 

S - TECOM 

Q - PRODUCT  ASSURANCE 
N - NONE 


which  option  appears  depends  on  how  the  option  is  enabled. 
After  the  required  application  code  has  been  entered,  the 
processing  will  continue  normally.  It  should  be  pointed  out 
again  that  these  are  suggested  lists  and  that  the  application 
codes  eventually  employed  are  up  to  the  user. 


4.5.5  Cross  System 
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When  enabled  this  option  permits  the  user  to  write  a 
single  report  covering  all  the  systems  In  the  master  data  file 
at  one  time.  This  should  not  he  confused  with  the  ALL  option 
available  when  writing  reports: 


HOW  MANY  SYSTEMS  00  YOU  WANT  TO  SEE? 
ENTER 
A - ALL 
S - SUBSET 
N - NONE 


which  allows  the  user  to  write  a separate  report  for  all  of  the 
systems  at  the  same  time.  The  cross  system  reporting  option 
allows  the  user  to  prepare  one  report  which  may  contain  all  or 
part  of  the  Information  from  all  the  systems.  Even  when 
enabled  this  option  only  becomes  available  when  the  user 
requests  to  see  all  systems: 


HOW  MANY  SYSTEMS  DO  YOU  WANT  TO  SEE? 
ENTER 
A - ALL 

S - SUBSET  OF  ALL 
N - NONE 


A 


which  will  be  followed  by: 


DO  YOU  WANT  ALL  SYSTEMS  ON  ONE  REPORT? 


A no  response  will  cause  the  system  to  process  the  ALL  request 
normally  (i.e.,  one  report  for  each  system)  and  a yes  answer 
will  provide  the  cross  system  report. 


The  report  output  under  this  option  may  be  quite  lengthy  in 
some  cases  and  heading  Information  for  systems  other  than  the 
first  (system  code  001)  will  not  be  part  of  the  report. 

Because  of  this,  it  is  wise  to  include  In  each  system  a dummy 
task  or  event  as  the  first  record  (Record  0001)  which 
Identifies  the  system  in  the  title  task  portion  of  the  record. 
This  may  be  given  an  application  code  such  that  it  will  only 
appear  on  the  cross  system  report  and  not  on  the  Individual 
system  report- 
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Appendix  A 

SCHEDULE  Subroutine  Listings 


ADDD  : PROC ( NL ABEL » L I NE ) J 
DCL  PROMPT  CHAR(l)  EXTERNAL* 

DCL  PROMPT  1 CHAR(l) 5 
DECLARE  LINE  CHAR ( 1 1 A ) 5 
DECLARE  1 CARD  BASED(P), 

2 DELET E_FLA(i  BIT  (8)  » 

2 ASE.CODE  CHAR (7)  . 

2 aplI_code  char ( l i j t 
2 MAJ0R_SYSTEM1  CHAR<12)» 

2 MAJ0R_SYST£M2  CHAR(20>» 

2 TITLE1  CHAR ( 20 ) ♦ 

2 TITLE2  CHAR  1 2 A ) ♦ 

2 AS_OF_DATE  CHAR  (10)  ♦ 

2 NO_DVL_STPS  FIXED  DEC<5»0). 

2 NO_REMARKS  FIXED  UEC(S*0)» 

2 FILE_END  FIXED  DEC (5*0) * 

DECLARE  1 DEVEL_STEP  BASED ( Q ) » 

2 DELETE.FLAG  BIT  (8) » 

? I NF  0 ♦ 

3 ASE_CODE  CHAR ( 7)  . 

3 APLl_COUE  CHAR (11)  , 

3 TYPE.NUMRER  FIXEO  DEG(2)» 

3 TITLE  CHAR  (28) * 

3 STEP_DATES (R)  FIXED  BEC(5.2>» 

3 COST (A)  FIXEO  DEC (5*2) * 

3 REST  CHAR (26) 5 
DECLARE  1 REMARKS  BAStD(R), 

2 DELETE_FLA6  BIT  (8) » 

2 ASE.CODE  CHAR (7). 

2 apli.code  char  ( i i ) . 

2 REMARK  CHAR (83) « 

2 REST  CHAR (15) * 

DCL  NL ABEL  FIXED  BIN; 

DCL  TOUTPT  ENTRY (FIXED  BIN(31))| 

DCL  INITT  ENTRY ( F I XtD  BIN(31))» 

DCL  IXOX  FIXEO  DEC(StO)  ; 

DECLARE  ANS  CHAR (80)  VAR  I 

DECLARE  NJMBER  CHAR(IO)  INIT ( *0123*56789* ) I 
DECLARE  TYPE  CHAR(S)  INI T ( ’EVENT •) * 

DCL  STA»T_DATE_CODE (S)  FIXED  DEC<5*2)! 

DCL  STOP_DATE_CODE  (5)  FIXED  DEC<5*2>! 

DCL  EVENT_DATE_C(>DE  (5)  FIXED  OEC<5*2)! 

DCL  CAL.DATE  FIXED  DEC(5t2)» 

DECLARE  (NTYPE.NUMBtSTOPI ) FIXED! 

OCL  RDATE  ENTRY  (CHAR  <R)  , FIXED  DEC(5»2)>! 

DCL  FDATE  ENTRY(CHAR(R) , FIXED  DEC (5*2) *FIXED  BIN(15))I 
DCL  STP_T  I TlE  CHAR  ( *r8 ) VAR*  ID_NO  FIXED! 
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(COL  ( 1 ) » 


OCL  COMPLET(IO)  FIXED  DEC(5.2M 

OCL  (EVENT_DATE ( 10) . S T ART.DATE ( 1 0 ) . STOP_pATE ( 1 0 > ) CHAR(9)» 

OCL  READ*(11)  LABEL  * 

OCL  L ABEL » (12)  LABEL  I 

OCL  (NPEA0*I«II»1I1»NNN»HMM)  FIXEO  BIN ( 5* 0 ) I 
/•  •••••  • »•••  •/ 

P = AODH (LINE) » 

Q = PJ 
R * P* 

/•  *****  *••••  */ 

ON  CONVERSION  BEGIN! 

PUT  EOITCYOUR  INPUT  WAS  IN  ERROR')  (COL(l).  A)  I 

PUT  EOIT (ONSOURCE)  (CUL(l).AD 

PUT  EOIT ( 'RE-ENTER* ) (C0L(2)»  AM 

PUT  SKI P(2) J 

REVERT  CONVERS I ON ( 

60  TO  READ# (NREAO) I 
END  1 

60  TO  LABEL* ( NL ABEL ) » 

LABEL*  (1)M 
NREAD  = H 

READ*  (1)5  PUT  EDITCENTER  MAJOR  SYSTEMS')  (C0L(1)*A)» 

PUT  EDIT  ( • / / / » ) (COL  ( 1 > * AM 

PUT  SK I P ( 2 ) I 

CALL  reverse; 

6ET  EOIT(MAJOR_SYSTEM1»mAjOR_SYSTEM2)  ( COL (2) * A ( 12) • A ( 1 ) » A ( 20 ) ) I 
READ*  ( ? ) : PUT  EDITCENTER  TITLE')  (COLU).  A)  » 

PUT  El)lT('/ / ; /♦) 

(COL ( 1 ) .A) 1 
PUT  SK I P ( 2 ) » 

call  reverse; 

6ET  EDIT (TITLEI.TITlE?)  (C0L(2>»  A(20)»  X(l).  A(24>>  » 

NREAD  = 3; 

READ*  ( 3 ) : PUT  EDITCAS  OF  DATE')  (COL(l).  A)  I 

PUT  EDI  T ( ' /__*.* * /»)  (COL  ( 1 ) * A ) I 

PUT  SKIP (2) ( 

CALL  reverse; 

6ET  EDIT (AS_OF_DATE)  (C0L(2).  A ( 1 0 ) ) I 
NREAD  = 41 

READ*  ( 4 ) : PUT  EDITCENTER  START  YEAR  FOR  REPORT')  (C0L(1).A)I 

PUT  EOIT 1 • / /•)  (CUL(l).A); 

PUT  SK IP  (?)  I 

call  heverse; 

GET  EDIT (NO_OVL_STPS>  (C0L(2).  F(5.0>>  I 
NREAD  = b> 

REAP*  (b)  J PUT  EDITCENTER  NUMBER  OF  YEARS  IN  REPORT')  (COL(l).  AM 
*UT  EDIT ( • ^ /•)  (CUL(1)»A)I 


( COL ( 2 ) . A ( 20 ) » X(l)  . A (24) ) 


PUT  SKIP (2) 5 
CALL  REVERSE) 

6ET  EDIT (NO.REMAHKS)  <C0L(2>*  F<5*0>)  I 
LABXOSPUT  EDIT ( ‘APPLICATION  CODE’)  (COL(2)tA)5 

PUT  EDI  T ( ' / /*)  (COL  ( 1 ) « A)  I 

PUT  SKIP (2) ; 

CALL  reverses 

GET  EDIT (CARD. APlI.CODE)  (COL (2) t A < 1 1 ) > 5 
/«  »«»«»  ««««««  »/ 

CALL  NEm/PAG; 

call  tsend; 
return; 

/»  »«»»»  »*»»»  «/ 

LABEL# ( 2 ) s ; 

DO  IXOX  = 1 TO  95 
step_dates(ixox)  = o.u; 
end; 

do  ixox  =1  to  <►; 
cost (ixox)  = o.o; 
end; 

SUBSTR  (LINE.  1 1-if  1 ) = • S * 5 
NREAD  = b5 

READ# ( b ) : PUT  EDIT  (’ENTER  ELEMENT  TYPE  ANO  NUMBER  OF  ELEMENTS’) 
(COL ( 1 ) »A)  ; 

IF  PROMPT  = • Y ' I PROMPT  1 = ’Y*  THEN 

PUT  EDI T ( ' TASK  OR  EVtNT  '♦  • FOLLOWED  BY  NUMBER*) 

(COL (2) t A)  I 
PUT  SKIP (2) ; 

GET  EDI T ( ANS ) < COL ( 1 ) * A(bO))  J 

IF  SUBSTR ( ANS» 1*1)  = ’E»  THEN  NTYPE  = II 

ELSE  NTYPE  = 05 

NUMB  = INDEXtANS*’  *)  ♦ 1* 

NNN  = 1 ; 

NUMB  = INOEX(NUMBER»SUBSTH(ANS»NUMB*l) ) - 15 

if  numb  > o then  do; 
stop i = numb; 

TYPE_NUMH£R  = -STOPI  5 

end; 

else  do; 
stopi  = i; 

TYPE_NUMbER  = -15 
END  5 

IF  NTYPE  ->=  0 THEN  GO  TO  LAB_E V 5 
NREAD  = 75 

READ#  ( 7 ) : PUT  EDITC  TITLE  / STR.OT  • * 

• •/  STP.DT  / COMPLT  /*)  (COL(l)f  A*  A) 5 

PUT  EDI  T ( • / /.  „» * / • , 
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* * * /*** ***/*)  (COL  ( 1 ) * A*  AH 

PUT  SKIP (2) 5 
CALL  REVERSE; 

GET  EDIT ( STP_T I TlE • STAHT_BATE (NNN) »STOP_DATE (NNN)  ♦ 
COMPLET(NNN) ) (COL (2) .A (28) »X(1) .A (9) *X(1) • A ( 9> ♦ 

X (4) ♦ F ( S 1 2 ) ) I 

CALL  FDATE (STAR T_DATE (NNN) tST ART_DAT ENCODE (NNN) *2)  I 
STEP_DATES (NNN)  = ST  ART_DATE_CQDE ( NNN) -1 1 
CALL  FOATE (STOP_DATE (NNN) ♦ STOP_OATE_CODE (NNN) #3) J 
STEP_DATES (NNN* 1 ) = STOP_OATE_COOE (NNN)  -ll 
STEP_DATES (NNN* 2)  = COMPLET (NNN) I 
/•  **************************************  */ 

/*  ENTER  MULT  ELEMENTS  */ 

/*  *****  START  OF  INPUT  OF  A TASK  *****  */ 

DO  I = 2 TO  STOP  I • 

NNN  = NNN  ♦ 1 ; 

MMM  = 3MNNN-1)  ♦ H 
NREAD  = b; 

READ* ( 8 ) S PUT  ED  I T ( • / STR.DT.  / STP.DT.  / COMPLT  /•) 

(COL  U ) * A) S 

PUT  EDIT  (•/_!*_ * / * * /*** ***/*)  (COL(l)t  A)  I 

PUT  SKIP  (?)  * 

CALL  REVERSE? 

GET  EDIT (ST  ART_DATE ( NNN ) * ST  OP_DATE ( NNN) * COMPLET (NNN) ) (COL 
A (9) .X < 1 ) ♦ A (9) »X (4) «F (5,2) ) t 

CALL  FDATE (STaHT.DATE (NNN) t ST ART_D AT ENCODE ( NNN) »2) I 
STEP.DATES  (MMM)  =ST AR T_DATEj.CODE  (NNN) -1 » 

CALL  FDATE (STOP_DATE (NNN) » STOP_DATE_CODE (NNN) »3) * 

STEP_DA  TES ( MMM* 1 ) = STOP_DATE_CODE (NNN)  -1J 
STEP_UATES (MMM* 2)  = CUMPLET (NNN ) ; 

end; 

go  to  lab_te; 

/«  *****  «««»*  «/ 

/»  *»»««  «««««  «/ 

L AB_E V : TYPE.NUMBER  = -TYPE_NUM9ER ; 

NNN  = i; 

PUT  ED  I T ( • / TITLE  / DATE  / *) 

( col ( i ) * a); 

PUT  EDIT  ( */_ /_* * /*) 

(COL(l)»  A); 

PUT  SKIP  (?) } 

call  reverse; 

GET  EDIT ( S7P_TI LLE »EVENT_DATE (NNN) ) 

(COL (2) *A (£6) »X ( 1 ) . A (9) ) ; 

CALL  FDATE ( E VEN T_DATE ( NNN ) ♦ ST AR T_ DA TE_C0DE (NNN) « 1 ) « 
STEP_DATES (NNN)  =ST AR T_DATE_CODE ( NNN > r 1 1 
DO  I = 2 TO  STOPi; 
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NNN  = NNN  ♦ l ; 

NREAD  = V! 

RE  ADO  ( 9 ) : PUT  tDI  T ( • / EVENT  DATE  /')  (COL(l).  AM 

PUT  EDI T ( * /__* * /•)  (COL (II*  A)  ! 

PUT  SKIP (2)  ; 

CALL  reverse; 

GET  EDIT ( EVENTED ATE ( NNN) ) (COL (2) * A (9) ) I 

CALL  FDATE  <EVENT_DATE (NNN) » ST ART_DATE_C0DE (NNN) » 1 ) I 

STEP_OATES(NNN)  =ST ART_OATE_COOE ( NNN)  - II 

End; 

/*  «••««  end  INPUT  of  an  EVENT  *****  */ 

L AB_T  £ : ; 

/»  •*»•»  ««««»  »/ 

title  = stp_title; 

GO  TO  LABXO: 

/*  «»••»  • •««•  */ 

LABEL# ( 3) : ; 

NREAD  = 111 

READO(ll);  PUT  EDITMtNTEH  REMARKS') 

(COL (IMAM 

PUT  EO I T ( • /*„ _•  , 

’ ' » 

' */•)  (COL  ( 1 ) .A. A. A)  I 

PUT  SK I P ( 2 ) I 
CALL  REVERSE! 

GET  EDIT  (REMARK ) <COL(3).  A(80)M 

SUBSTR(LINE. 113.1)  = *RM 
/*  • •*»»  »»•«•  */ 

GO  TO  LABXO ! 

/*  *****  «•»*«  */ 

END  addd; 
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CHANGE:  PROC ( NL ABEL «L 1NE »F IN) I 
OCL  PROMPT  CHAR ( 1 ) EXTERNAL t 
OCL  PROMPT  1 CHAR ( 1 ) » 

OCL  FIN  CHAR ( 1 ) I 
DECLARE  LINE  CHAR(IU)  » 

DECLARE  1 CARD  8ASED(P), 

? DELETE_FLAG  BIT (8) . 

? ASE.CODE  CHAR (7). 

2 apli_code  char < i i > » 

2 MAJOR _SYSTEm1  CHAR (12). 

2 MAJOR _SYSTEM2  CH AH ( 20 ) » 

2 TITLE1  CHAR ( 2C ) . 

2 TITLE  2 CHAR ( 24 ) » 

2 AS_OF_DATE  CHAR (10)* 

2 NO_DVL_STPS  FIXED  DEC (5 . 0 ) * 

2 NO.REMARKS  FIXED  DEC<5.0>» 

2 FILE_END  FIXED  0EC(5.Q)» 

DECLARE  1 DEVEL_STEP  BASED(Q). 

2 DELETE^FLAG  BIT (8)  ♦ 

2 INFO. 

3 ASE_CODE  CHAR  ( 7 ) . 

3 APL I _CODE  CHAR (11)  . 

3 TYPE.NUMBER  FIXED  DEC(2). 

3 TITLE  CHAR ( 28 ) . 

3 STEP _D A T E S ( R ) FIXED  DEC<5.2)» 

3 COST ( 4 ) FIXED  DEC(5.2) . 

3 REST  CHAR (26) t 
DECLARE  1 REMARKS  BAStD(R). 

2 OELETE_FLAG  BIT (8)  , 

2 ASE_CODE  ChAR ( 7 ) » 

2 APLl_CODE  CHAR (II)  . 

2 REMARK  CHAR (80) ♦ 

2 REST  CHAR (15) I 
DCL  NLABEL  FIXED  BIN; 

OCL  DUMMY  FIXED  DEC (5.2) I 
DECLARE  ANS  ChAR(BO)  VAR» 

DCL  ANSI  CHAR  ( 80  ) I N I T ( * •)» 

DECLARE  LETTER  CHAR(27)  INITC  ABCDEFGHI JKLMNOPQRSTUVWXYZ ' ) t 
OCL  LET  TER  1 CHAR (26) \ 

DCL  START_DATE_CODE (5)  FIXED  DEC(5.2)I 
OCL  STOP_DATE_CODE (5)  FIXED  DEC(5.2)» 

OCL  INITT  ENTRY  (F  I XED  BIN(31))» 

DCL  TOUTPT  ENTRY  ( F I XEl)  RlN(31))l 

DCL  FDATt  ENTRY (CHAR (9) .FIXED  DEC (5.2) .FIXED  BIN(15))I 
DCL  RDATE  ENTRY (CHAR (N) .FIXED  DEC(5.2))I 

ocl  stp_title  char < 28 ) vari 

DCL  COMPLET(IO)  FIXED  DEC(5.2)» 
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DCL  (EVENTED ATE (10) » STAR T_0 ATE (10) tSTOPJDATE (10))  CHAR(9)S 
OCL  READ* (131  LABEL  * 

DCL  LABEL# ( 13 ) LABEL I 

OCL  <NREAD»I»NNN*STOPI.STOPII)  FIXED  BIN* 

DCL  NOOVLSTPS  FIXED  DtC(5»0)l 
DCL  NOREMARKS  FIXED  DtC(5*0)l 
LETTER  1 = SUBSTR (LETTER. 2*26)  I 


/*  *****  *****  */ 

P = ADDR (LINE) * 

0 = PI 
R = PI 

/*  •«•••  *****  */ 


ON  CONVERSION  BEGIN! 

PUT  EOI T ( * YOUR  INPUT  WAS  IN  ERROR*)  (COL<I)»  A) I 

PUT  EDIT (ONSOURCE)  (COL(l)tA)l 

PUT  EDIT ( 'RE-ENTER* ) <C0L<2)«  A)t 

PUT  SKIP (2) I 

REVERT  CONVERSION! 

GO  TO  READ# (NREAD) I 
END  I 

GO  TO  LABEL# (NLABEL) I 
LABEL# ( 1)51 
NREAD  = II 

READ#  <1)5  PUT  EDITCENTER  MAJOR  SYSTEMS*)  (COL(l)*A)l 
PUT  EDIT ( MA J0R_SYSTEM 1 ♦ MA JOR_ SYSTEM2)  ( COL (2) ♦ A* X (1 ) * A)  I 

PUT  ED  I T ( • / l / j /» ) ( COL  ( 1 ) * A ) I 

PUT  SKIP  (?)  I 
CALL  REVERSE! 

GET  EDIT(ANS)  < COL ( 1 ) ♦ A ( 80 ) ) I 

IF  SUBSTR  ( ANS *1*1)  = * N.*  I SUBSTR(ANS*1*1 ) = *S* 

THEN  GO  TO  LABEL# (13)1 

IF  SUBSTR ( ANS  * 2 » 12)  SUBSTR l ANSI ♦ 1 t 12)  THEN 
MAJ0R_SYSTEM1  = SUBSTR ( ANS , 2 » 12 ) I 
IF  SUBSTR(ANS»15»20)  -*  SUBSTR ( ANS 1 . 1 t 20 ) THEN 
MAJ0R_SYSTEM2  = SUBSTR ( ANS* IS* 20 ) I 


/»  »«»••  «••••  •/ 

GO  TO  LABEL# (13) I 
/•  *****  *****  •/ 

LABEL# (?)  5 I 
NREAD  = 21 


READ# (?)  5 PUT  EDIT(*ENTER  TITLE*)  ( COL  < 1 ) • A) I 
PUT  EDIT (TITLE1*TITLE2)  (COL « 2 > . A . X ( 1 > . A > I 

PUT  EDIT  ( •/__ / ; /•) 

(COL ( 1 ) « A ) I 
PUT  SKIP (2)  I 
CALL  REVERSE! 

GETEDITUNS)  ( COL  ( 1 ) « A ( 80 ))  I 
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IF  SUBSTR ( ANS« 1*1)  = *N*  I SUBSTR ( AMS » 1 • I l a 'S' 

THEN  GO  TO  LABEL* (13) » 

IF  SUBSTR(ANS.2.20)  -=  SUBSTR ( ANSI . I .20)  THEN 
TITLE1  = SUBSTR < ANS » 2. 20 ) I 

IF  SUBSTR ( ANS* 23« 24 ) -a  SUBSTR (ANSI . 1 .24)  THEN 
TITLE2  = SUBSTR (ANS.23.24) I 
/*  •••••  *****  */ 

GO  TO  LABEL* (13) I 
/*  »••••  •••**  */ 

LABEL* (3) : 1 
NREAD  = 31 

READ* ( 3 ) 5 PUT  EOIT(*AS  OF  DATE*)  (COL(l).  A)  I 
PUT  EDIT  (AS_.OF.OATE)  (C0L<2).A>! 

PUT  EDIT ( • / • * /•>  (COL ( 1 ) * A > I 

PUT  SMP<2>  1 
CALL  REVERSE l 

GET  EOIT(ANS)  ( COL ( I ) ♦ A ( 80 ) ) 1 

IF  SUBSTR(ANS.l.l)  = *N»  I SUBSTR ( ANS . 1 ♦ 1)  a «S» 

THEN  GO  TO  LABEL* (13)1 

IF  SUBSTR(ANS.2«10)  -=  SUBSTR < ANSI » 1 ♦ 1 0 ) THEN 
AS.OF.DATE  a SUBSTR (ANS»2*1Q)  1 
/•  •»»•»  »•««•  »/ 

GO  TO  LABEL* (13) 1 
/•  *****  «••«*  »/ 

LABEL* (4) : 1 
NREAD  = 41 

READ* (4)5  PUT  ED  I T ( * ENTER  START  YEAR  FOR  REPORT*)  (C0L(1)*A>! 
PUT  EDIT ( NO_DVL_STPS ) (COL (2) *F (5.0) > 1 

PUT  EDI  T ( • /_ /•)  (C0L(1).A)1 

PUT  SK 1 P ( 2 ) 1 
CALL  REVERSE  1 

GET  EOIT(ANS)  ( COL ( 1 ) » A ( 80 ) ) 1 

IF  SUBSTR ( ANS .1.1)  = *N*  I SUBSTR ( ANS * 1 ♦ 1 ) » *S* 

THEN  GO  TO  LABEL* (13)1 

GET  STRING(ANS)  EDIT (NOOVLSTPS)  (X(l).  F(S.O))  1 
IF  NOOVLSTPS  -=0  THEN  NO.DVL.STPS  a NOOVLSTPS! 


/*  ••*••  »•*•«  */ 

GO  TO  LABEL* (13) l 
/*  •*•••  «••••  */ 

LABEL* ( 5 > : 1 
NREAD  a 51 


READ* (5 ) : PUT  EOI T ( ’ENTER  NUMBER  OF  YEARS  IN  REPORT*)  (COL(l).  A)l 
PUT  EDIT (NO.REMARKS)  (C0L(2)  .F(5.0))l 

PUT  EDI  T ( • / /*>  (COL(l)  .A)  1 

PUT  SKIP (2) 1 
CALL  REVERSE  1 

GET  EDI T ( ANS)  ( COL ( 1 > » A ( 80 ) ) 1 


P 


IF  SUBSTR ( ANS *1*1)  = *N*  I SUBSTR ( ANS *1*1)  « ‘S' 
THEN  GO  TO  LABEL* (13) * 

GET  STRINGUNS)  EDIT (NOREMARKS)  ( X ( 1 > • F(5t0)>  I 
IF  NOREMARKS  ^*>0  THEN  NO_REMARKS  * NOREMARKS  1 
/*  • ••••  *****  */ 

GO  TO  LABEL*< 13) I 
/•  »••••  «••••  */ 

LABEL* (6)  : 1 
NREAD  = b! 

PUT  EDIT (CARD. APLl_CODE>  (C0L(2)»AH 

PUT  EDIT(*/ /*)  (COL  ( 1 ) • A)  ! 

PUT  SKIP (2) ! 

CALL  REVERSE! 

GET  EDI T ( ANS)  ( COl ( 1 ) ♦ A ( 80 ) ) ! 

IF  SU8STH(ANS.1»1)  = *N*  I SUBSTR < ANS t 1 ♦ 1 > » *S* 
THEN  GO  TO  LABEL* (13) ! 

IF  SU8STR(ANS«2»11)  -.=  SUBSTR  ( ANSI  1 1 ♦ 1 1 ) THEN 
CARD.APLI.COOE  = SUBSTR (ANS#2« 1 1 ) ! 


/*  *****  •••»«*  */ 
GO  TO  LABEL* ( 13) ! 

/•  •••••  •••••  */ 


LABEL*  < 7 ) ! I 
NREAD  = 71 

READ* ( 7) : PUT  EDI T ( • / TASK  / *) 

(COL ( 1 ) *A)  1 

PUT  EDIT (QEVEl STEP.T ITlE ) (C0L(2)*A)1 

PUT  SKIP  (?) ! 

PUT  EOIT(»/_l /•)  (COL(l).AH 

PUT  SKIP  (?) i 
CALL  REVERSE! 

GET  EOIT(ANS)  ( COL ( 1 ) t A ( 80 ) ) 1 

IF  SUBSTR(ANS.lfl)  = *N«  I SUBSTR ( ANS » 1 t 1 > • »S» 

THEN  GO  TO  LABEL*(13) 1 

IF  SU8STR(ANS.2»28)  - = SUBSTR ( ANSI ♦ 1 ♦ 28 ) THEN 
DEVEL_STEP. TITLE  * SUBSTR < ANS 1 2 . 28 ) ! 

/*  *****  •••»»  */ 

GO  TO  LABEL* (13)1 
/*  ••••«  ••»««  */ 

LABEL* (8) : I 

READ* (8) ! NREAD  = 8! 

STOP  1 1 = U->TYPE_NUMBERl 
ST OP 1 1 = ABS(STOPII) ! 

NNN  = 0! 

MMM  = -? 1 

DO  I » 1 TO  STOPII! 

MMM  s MMM  ♦ 3 < 

NNN  = NNN  ♦ 1 1 
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V 


S 


PUT  EDI T l ♦ / STR.DT.  / STP.DT.  / COMPLT  /*> 

(COL  ( 1 ) » AM 

DUMMY  = STEP_ DATES ( MMM)  ♦ 1? 

CALL  «DATE (START_DATE (NNN) .OUMMY)  I 
DUMMY  = STEP_OATES(MMMM  > ♦ 1 ( 

CALL  HDATE (STOP_DATE (NNM) .DUMMY) » 

COMPLET (NNN)  = STEP..DATES (MMM*E) I 

PUT  EDIT (START.OaTE (NNN) »STOP_DATE (NNN) .COMPLET (NNN) ) 

(COL  (2)  .A»X(1).A.X(2)»F<5»2)M 

PUT  EDI T ( * / * * / * * /*•* ***/»)  ( COL  ( 1 ) * AM 

PUT  SKIP (2) » 

CALL  REVERSE? 

GET  EDIT(ANS)  (COL (1 ) »A (80) ) ? 

IF  SUBSTR(ANS.l.l)  = *N»  I SUBSTR (ANS. 1*1)  a *S» 

THEN  GO  TO  LABEL* ( 13) ? 

GET  STRING (ANS)  EDIT ( ST ART_DATE (NNN) tSTOP J)ATE (NNN) .COMPLET (NNN) ) 
(X<1) »A(9) »X(1) » A ( 9 ) *X (4) *F (5.2) ) I 

IF  COMPLET (NNN)  -=  0 THEN  STEP.DATES (MMH*2)  * COMPLET (NNN) I 
IF  VERIFY  (START_DATE  (NNN)  .LETTER)  «.=  0 THEN  DOI 
CALL  FOATE (STAHT.DATE (NNN) .DUMMY.2) ? 

STEP.DATES (MMM)  = DUMMY  - 1? 

ENO? 

IF  VERIFY <STOP_DATE (NNN) .LETTER)  -=  0 THEN  DO? 

CALL  FDATE (STOP_DATE (NNN) .DUMMY .3) I 
STEP.DATES (MMM.l ) = DUMMY  - 1? 


ENO? 

END? 

/•  *****  */ 

GO  TO  LA8EUM  13)  ? 

/*  *****  •»»•*  */ 

LABEL* (9) : I 


READ* ( 9 ) S PUT  tD I T ( • / EVENT  /*) 

( COL ( 1 ) . A)? 

PUT  EDIT (DEVEL.STEP. TITLE) 

(COL (2) .A) ? 

PUT  EDI  T ( * / /» ) 

(COL(l).  AM 
PUT  SKIP (2) ? 

CALL  REVERSE? 

GET  EDIT(ANS)  (COL ( I ) . A (80) ) ? 

IF  SUBSTH(ANS.l.l)  = • N * I SUBSTR (ANS. 1.1)  = *S* 

THEN  GO  TO  LABEL*(13) ? 

IF  SUBSTR  (ANS.2.28)  -^=  SUBSTR  ( ANS  I . I ♦ 28)  THEN 
OEVEL_STEP. TITLE  = SUBSTR  (ANS. 2.28M 
/*  •••*»  •«««*  */ 

GO  TO  LABEL* ( 13) ? 

/*  •••••  ••••«  •/ 
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LABEL# (10) : I 
READ# (10) : NREAD  = 10* 
STOPII  = Q->TYPE_NUMBER| 
STOP  1 1 = ABS ( STOP  1 1 ) * 

NNN  = 01 


DO  I = 1 TO  STOPII! 

MMM  s NNN  ♦ 1 I 
NNN  = NNN  ♦ 1 I 

PUT  EDI T ( • / EVENT  OATt  /•)  <COL(l)»  A) I 

OUMHY  = STEP_OATES (NNN)  ♦ II 

CALL  WDATE (EVENT_DATE (NNN) *DUMMY>  * 

PUT  EDIT (EVENT_DATE (NNN) ) (COL(2)*A)l 

PUT  EDI  T ( * /_* * /•)  < COL  <11*  A)  I 

PUT  SKIP (2) I 
CALL  REVERSE! 

GET  EDIT(ANS)  ( COL (1 ) t A ( 80 ) ) I 

IF  SUBSTR ( ANS *1*1)  = *N»  I SUBSTR ( ANS *1*1)  * 'S' 

THEN  GO  TO  LABEL#(13) I 

GET  STRING(ANS)  EDIT (LVENT_DATE (NNN) ) <X(l).A<9)>  I 
IF  VERIFY  <E VENT _D ATE (NNN) * LET TER)  -s  0 THEN  001 
CALL  FDA TE <EVENT_DATE (NNN) .DUMMY. 1) I 
STEP_OATES ( MMM ) = DUMMY  - 1* 

END! 

END! 

/•  • ••»•  «•«•«  */ 

GO  TO  LABEL#( 13) I 
/*  • •••»  «•••«  */ 

LABEL# (11) : I 
NREAD  = 111 

READ# (11):  PUT  EDIT ( ’ENTER  REMARKS') 

( COL ( 1 ) ♦ A ) 5 

PUT  EDIT (REMARK)  (C0L(2).A)! 

PUT  EDIT  ( ' ✓* • t . 

' ' » 

• * */')  (COL(l)  ♦ At  A*  A)  I 

PUT  SK I P ( 2 ) I 
CALL  REVERSE! 

GET  EDIT(ANS)  ( COL ( 1 ) ♦ A ( 80 ) ) I 

IF  SUBSTR(ANS.l.l)  = ' N ' I SUBSTR ( ANS . 1 ♦ 1 ) * 'S' 

THEN  GO  TO  LABEL# (13) ! 

IF  SUBSTR ( ANS » 3*  77 ) -=  SUBSTR ( ANSI » 1 ♦ 00 ) THEN 
REMARK  = SUBSTR ( ANS. 3 « 77 ) I 

/*  • ••••  • ••••  • / 

GO  TO  LABEL# (13) ! 

/•  •••••  *****  */ 

LABEL# (12) : I 

PUT  EDI T ( ' THE  ELEMENT  TITLE  IS  ...  • »DEVEL_STEP. TITLE) 


(COL (2) * A » A ) 1 

PUT  EOIT  CENTER  ELEMENT  TYPE  AND  NUMBER  Of  ELEMENTS*) 

( COL ( 1 ) * A ) 1 

IF  PROMPT  = • Y • I PROMPT!  s *Y»  THEN  DOl 

PUT  EDITC  TASK  OR  EVENT  FOLLOWED  RY  NUMBER*) 

(COL (2) * A) ( 

PROMPT  1 = *N*J 
END) 

PUT  SKIP  (?)  * 

GET  EDI T l ANS ) ( COL ( 1 ) ♦ A ( 80 ) ) I 

IF  SUBSTR  ( ANS *1*1)  = *N*  THEN  GO  TO  LABEUM13H 
NUMB  s VERIFY (ANS. LETTER) ) 

IF  NUMB  > 0 THEN  GET  STRING(ANS)  EDIT(STOPI)  ( X (NUMB-1 ) »F ( 1 ) ) I 
ELSE  STOPI  = 1) 

NNN  = 01 

IF  SUBSTR(ANS.l.l)  = *E*  THEN  GO  TO  LAB_ E V) 

IF  STOPI  > 3 THEN  DOl 

PUT  EDITCMAX  NUMBER  OF  SUB  TASKS  IS  3*) 

(COL (2) .A)  1 
PUT  SKIP  (?)  1 
PROMPT  1 = *Y»1 
GO  TO  LABEL*)  (12)1 
END) 

DO  I = 1 TO  STOPI 5 
NNN  = NNN  ♦ 1) 

MMM  = 3*(NNN-1)  ♦ 11 
NREAD  = 1?) 

RE  AD**  112):  PUT  EDI  T ( ♦ / STR.DT.  / STP.DT.  / COMPLT  /») 

( COL ( 1 ) » A ) 1 

PUT  EDIT  (•/_.* * / * * /*** ***/*)  ( COL  ( 1 ) . A ) I 

PUT  SK IP ( 2 ) 1 
CALL  REVERSE! 

GET  EDIT (ANS ) (COL ( 1 ) » A ( 80 ) ) I 

IF  SUBSTR (ANS* 1 . 1 ) = *N*  THEN  GO  TO  LABEL* (13)1 

GET  STRING ( ANS)  EDIT (ST ART_DATE ( NNN ) .STOP.DATE (NNN) .COMPLET (NNN) ) 
(X(l) »A(9) »X(1) *A(9) * X (A) »F(5»2) ) 1 

CALL  FDATE (START.OATE (NNN) * START.DA TE.CODE (NNN) .2) 1 

STEP^ DATES (MMM)  =ST  ART.DATE.CODE ( NNN) -1 1 

CALL  FDATE  (STOP^DATE  (NNN)  tSTOP_.DATE.CODE  (NNN)  .3)  1 

STEP. DA  TES ( MMM* 1 ) = STOP_BATE_CODE (NNN)  -1 1 

STEP.DATES (MMM*2)  = COMPLET (NNN) 1 

STOPI I = NNN 1 

END! 

TYPE.NUMbER  = -STOPI I! 

/*  *****  •••••  «, 

GO  TO  LABEL* ( 13) 1 

/*  •••••  */ 


A-13 


LAB_EV: I 

DO  I * 1 TO  STOPI I 
NNN  = NNN  ♦ 11 
NREAD  = 131 

READ#  (13):  PUT  EDIT  ( */  EVENT  BATE  /•)  (COL(l).  AM 

PUT  EDI  T ( • * /*)'  ( COL  ( 1 ) * AM 

PUT  SK  IP  ( <? ) ; 

call  reverse; 

GET  EDI T ( ANS 1 (COL ( 1 ) * A (80) M 

IF  SUBSTR(ANS.1*1)  = *N*  THEN  GO  TO  LABEUM13M 
GET  STRING(ANS)  EDIT (EVENT_DATE (NNN) ) (X(1),A<9))  I 
CALL  FOATE(EVENT_DATE(NNN>  *START_DATE_CODE (NNN) «1M 
STEP_OATES  (NNN)  =ST  ART_.DATE_.CODE  ( NNN)  - 1) 

STOP  1 1 = nnn; 
end; 

TYPE_NUMBER  = STOPI  M 
LABEL# ( 13) M /*  NO  CHANGES  */ 

FIN  = SUBSTR ( ANS » 1 » 1 ) I 
IF  FIN  = »S*  THEN  00) 

IF  NL ABEL  = 8 I NL ABEL  = 10  THEN  GO  TO  LABZZXt 

FIN  = »N' I 

END! 

LABZZX : ; 

CALL  newpag; 
call  tsend; 

/*  «»»»*  »»«««  */ 

return; 

/»  *****  «*»«•  */ 

END  change; 
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FOATE:  PROC (OAY_mONTH_YEAR.FDATE_COOE»NDTYPE) * 

OCL  DT YPE ( 0 : 4 ) CriAP(6)  I N I T ( • • » • E VENT  * . • ST ART • . • STOP*)* 

DCL  NOTYPE  FIXtD  B I N ( 1 1» ) * 

DCL  OMC  PIC99AAAAA99*  ; 

OCL  A 1 ChAK  ( 1 ) ; 

DCL  INI TT  ENTRY (FIXtD  U I N ( 3 1 ) ) « 

DCL  TOUTPT  ENTRY (FIXED  R I N ( 3 1 > ) t 
DECLARE  ( L * I » J ♦ K ) FIXED; 

DECLARE  DAY_MONTn_YtAR  CHAR(10)I 
DECLARE  (MONTH)  CHARACTER ( 3) i 
DCL  (YEAR »MONTH_CODt ) PIC»999V99*; 

DECLAWE  DAY_FaCTOR (3.4)  FIXED  DEC(5.2) 

INIT (31.0*30.0*31.0«3i.0» 

28.0. 31 .0t31.0t30.0t 

31.0. 30.0.30.0.31.0)  ; 

DECLAPE  E DATE  ( 3 , 4 ) CHAPaCTEW(3) 

INIT ( 'JAN • « 'APR* . • JUL  * . 'OCT  • ♦ 

•FEB'.'MAY'.' AUG • , • NOv • , 

•MAW  * » • jUN»  . SEP  • * • DEC  * ) « 

DECLARE  STAWT_YEAW  FIXED  DECO. 2)  INIT(76.0)» 

FOATE.COUE  FIXtD  DECO.  ?)  .DAY  PIC*999V99M 
ON  CONVEkSION  begin; 

PUT  EDIT  ( • YOUR  DATE  CONTAINED  AN  ERROR  •♦ 

•IT  must  be  Changed  to  ». 

•ALLOW  PROCESSING  TO  CONTINUE  •) 

(COL  O)  . A.  A . A)  J 

PUT  EDIT (DNSDURCt)  (COL(l).A); 

PUT  EOITC/ * * /•)  (COL(i)»A>; 

PUT  SK IP (2)  ; 

call  wevewse; 

GET  EDIT(Al.DMC)  ( COL ( 1 ) . A < 1 ) . P * 99A AAA A99 • ) » 

DAY_MONTH_YEAW  = DMC  ? 

GO  TO  jba; 

end; 

regin; 

IF  SUBSTW  <DAY_M0NTH_YtAW.3»  1 ) -.=  * • I 

SUBSTW  (CAY_MONTH_YEAR.  7, 1 ) -.=  • • THEN  DO; 

PUT  EDIT (DTYPE (NDTYPE) . • DATE  IN  ERROR  YOU  MUST  RE-ENTER  *) 
(COL ( 1 ) ♦ (2) A)  ; 

PUT  EDIT (DAY_MONTH_YEAR)  l COL ( 2 > • A ) t 

PUT  EOITC/ * « /•)  (COL(l).A)! 

PUT  SKIP (2)  ; 

call  reverse; 

GET  EDIT l DAY_MUNT H_YE AR ) (COL (2) . P • 99A A AA A99 • ) ; 

end; 

end; 

JBA!  DAY  = SUBSTW (DAY_M0NTH_YEAR. 1 .2) ; 
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MONTH  = SUbSTk  (DAY_«40NTh_YEAH.*»3)  J 
YEAH  = SUBSTH <DAY_M0NTH_YtARf8»2) ; 

/*  *****  START  UNDING  MONTH  CODE  *****  */ 

fix_mon:  k=o;  l=o j month_code=o; 

no  1=1  to  j ; 

L=  SUM (FDATE < I »*) =MONTH) ; 

IF  L= 1 ThEN  DO  J=1  TO  4 I 
K=SUM (FDATE (*.J)=MONTh) ; 

IF  K = 1 Th£N  uO* 

MONTH_CODE=  3* ( j-  1 ) ♦ I; 

GO  TO  S600J 
ENO  J 

end; 

/*  *****  END  FINDING  month  CODE  *****  */ 
ENO! 

PUT  ED  I T ( ' I CANNOT  FiNO  YOUR  MONTH 

♦ PLEASE  RE-ENTER.*) 

(COL (S) t A)  ; 

PUT  ED  I T ( ' / /•)  ( COL ( 1 ) * A ) t 

PUT  SKIP (2) ; 

call  reverse; 

GET  ED  I T ( MONT H ) ( COl ( ^ > » A ( 3 ) ) ? 

GO  TO  FIX_MON5 

/*  *****  CALCULATE  FDATE  CODE  *****  */ 
S600:  FDATE_COUt  = DAY  / DA Y_F ACTOR ( I t J) 

♦ mONTh_CDDE 

♦ (YtAR-START_YtAR)  *12  ♦ .OH 

/*  *****  •»«»«  */ 

S700:  return; 

END  FDATE; 
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grap:  proccypej* 

DCL  ANS  CHAR ( 80 ) VAR; 

DCL  <LLIMIT»ULIMIT»STYR, NOYR ) FIXED  DEC(5*2)  EXTERNAL ; 
DCL  PROMPT  CHAR ( 1 ) EXTERNAL ; 

DCL  ( TYPE » RTYPE ) CHAR ( 1 ) ; 

DCL  TOUTPT  ENTRY ( F I XED  BlN<31))* 

DCL  INITT  ENTPY  (FIXED  HIN(31))* 

DCL  SCRATCH  FILE  ENV (F < 00 ,80 ) ) ; 

DCL  DIREC  FILE  RECORD  KEYED  ENV ( I NOEXED  F ( 1 140* 1 14) ) * 
IF  TYPE  = *N*  THEN  CALL  NEWl* 

IF  TYPE  = • L • THEN  CALL  WINDOW* 

IF  TYPE  = * E • THEN  CALL  UPDATE* 

IF  TYPE  = ' R ' THEN  DO* 

PUT  EDITCENTER  TERMINAL  TYPE')  (COL(l).Ai* 

IF  PROMPT  = ' Y • THEN 
PUT  EDITCENTER*. 

'G  - TEXTRONIX  4014  (GRAPHICAL  OUTPUT)', 

•P  - TEXAS  INSTRUMENTS  (PRINTER  OUTPUT)' 

» N - NONE') 

(COL ( 1 ) , A, (3) (COL (5) .A) ) * 

PUT  SKIP (2) J 

GET  EDIT (RTYPE ) ( COL ( 1 ) ♦ A ( 1 ) ) * 

IF  RTYPE  = • G » THEN  CALL  FORM* 

IF  RTYPE  = »P»  THEN  CALL  TYREPT* 

END* 

RETURN* 

END  GRAP* 


LLIST:  PNOC<LINt>* 

DECLARE  LINE  CHAM ( 1 14)  I 
OECLAKE  l C AMU  BASED ( R ) « 

2 DELE  TE_FL  A6  BIT (8)  . 

? ASEC  CHAM ( 7)  . 

? apli_cooe  char  ( i i > . 

2 MAjOP_SYSTEMl  CHAM (12)* 

2 MAjOH_SYSTEM2  CHAM(?0). 

2 TITLE1  CHAM ( 24 ) . 

2 TITLE2  CHAH(?0)  . 

2 AS_OF_DATE  CHAR(IO)  , 

? NO_DVL_STPS  FIXED  DEC ( 5 » 0 ) * 

2 NO.HEMARKS  FIXED  UEC(b*0)t 
2 FIlE_ENO  FIXED  OEC(S»0>! 
DECLARE  I DEVEL.STEP  BASEO(O). 

? DELETE.FLAG  BIT  (fl>  , 

2 INFO* 

3 ASE.CODE  CHAR ( 7) * 

3 APLI_C0DE  CHAR (II), 

3 TYPE_NUMHEM  FIXED  DEC(?). 

3 TITLE  CHAR ( 28 ) • 

3 STER_DATtS(9>  FIXED  DEC(S.2>* 
3 COST  (4)  FIXED  DEC ( 5 * 2 ) * 

3 REST  CHAM (?6) I 
DECLAME  I REMARKS  BAStD(R), 

? DELETE.FLAG  HIT (fl)  , 

? ASE_C ODE  CHAR  ( 7 ) » 

2 APL I_CODE  CHAR  (11), 

? REMARK  CHAR (80)  ♦ 

2 REST  CHAR (lb) » 

DCL  ALDATE ( 9 ) CHAN(R)  I 
DCL  APLI  CHAR  (11)  VAR! 

DCL  DUMMY  FIXED  DEC<5*2>! 


/•  *0*0*  00**0  */ 

P = ADDR (LINE) ! 

0 = PI 
R r PI 

/•  •••••  ooooo  */ 


IF  SUBSTR(LlNt.b»4)  = *0000*  THEN  DO! 

PUT  EDIT ( ' SYSTEM  NUMBtMs  * , SUBSTR ( ASEC • 1 » 3)  ) 

(COL ( 1 ) « A • A ) I 

PUT  EDIT (‘MAJOR  SYSTEM:  • »MAJ0R_SYSTEM1 * MAJ0R_SYSTEM2)  (COL < 1 ) * A* A* ( 
PUT  EDIT ( 'PROJECT  TITLE:  • * T I TLE 1 t T I TLE2 ) (COL ( 1 ) . A. A» A ) » 

PUT  EDITCAS  OF  DATE:  • , AS^OF.DATE  ) < COL < 1 ) . A . A)  I 

PUT  SKIP  (?)  I 

RETURN! 

END« 


APLI  = CARD.APLI_CODEl 
LSTR1  = VERIFY (APLI  t * •)  * 

IF  LSTR1  * 0 I LSTR1  = 11  THEN  DOI 
NS P = 01 
60  TO  XXI 
END! 

LSTR2  * INDEX ( APL I » ' •)  I 
DO  I * 11  TO  1 BY  -II 

IF  INDEX (SUBSTR(APLl.Itl) .♦  •)  ■ 0 THEN  DOI 

NSP  « -LSTR1  ♦ II 

GO  TO  XXI 

ENDI 

END  I 

XX : APL I = SUBSTR(APLI*LSTR1»NSP*1>  1 
NSP  = 10-NSPI 

IF  SUBSTR(LINE *113*1)  = THEN  001 

IF  TYPE— NUMBER  > 0 THEN  DOI 

IE:  DO  K = 1 TO  TYPE.NUMBERI 

DUMMY  = STEP— DATES ( K ) ♦ II 

CALL  RO A TE ( ALDATE ( K ) » DUMMY ) * 

END  LEI 

PUT  EDIT(SUBSTR(ASEC«4.A)*»('»APLI**) '.title* 

(ALDATE (K)  DO  K * 1 TO  TYPE_NUMBER) ) 

( COL  < l ) * A * X ( 1 ) » X ( NSP ) *A*A*A*COL (20) « A * X ( 1 ) * 

(TYPE .NUMBER) (COL (*9) *A*X(1)*A))I 
ENDI 

NUMBER  = -TYPE.NUMBERI 
IF  TYPE_NUMBER  < 0 THtN  DOl 

LS:  DO  KK  = 1.2. **5*7*8  WHILE  < T YPE_NUMBER*3<-KK ) I 
OUMMY  = STEP.DATES(KK)  ♦ 11 
CALL  RDATE (ALDATE (KK) .DUMMY) I 
END  LSI 

PUT  EDIT (SUBSTR(ASEC»*.*) .*( '.APLI*') • .TITLE. 

(ALDATE(K) *ALDATE(K*1) *STEP_DATES(K*2) 

DO  K = 1 TO  NUMBER*3  BY  3)) 

( COL ( 1 ) * A » X ( 1 ) * X ( NSP ) *A*A*A*X(1) * A*  X ( 1 ) » 

(NUMBER)  (COL < 49)  *A*X(1)  ,A.X  (3)  *P*9V99* ) ) I 
END! 

PUT  SKIP  (?)  I 

RETURNI 

ENDI 

IF  SU8STR(LINE. 113*1)  = »R»  THEN  001 

LSTRl  = INDEX (SUBSTR (REMARK* 32 *8) * * •)  ♦ 311 

LSTR2  = VERIFY (SUBSTR ( REMARK *LSTR 1 *80 -LSTRl).'  •)! 

PUT  EDI T( SUBSTR ( ASEC** .*) *M'» APLI* •> • .SUiSTR (REMARK. 1 *LSTR1 ) ) 
< COL ( 1 ) ♦ A » X ( 1 ) *X(NSP) * A* A* A.COL (20) » A) I 
IF  LSTR2  -.=  0 THEN 
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put  skip (2) i 
«eturn i 
endi 

RETURN! 

ENO  LL 1ST  I 


-- 


MASTER:  PROCEDURE <JBAC8A>  OPT  IONS (MAIN) I 
DCL  (NSAPYtNRARY)  FIXtO  DEC15)  EXTERNAL  * 

OCL  lLLIMIT,ULlMITtSTYR.NOYP>  FIXED  DEC<5»2)  EXTERNAL! 

DCL  NSANS  CHAR (1)1 

OCL  JBACBA  CHAR (100)  VAR! 

DCL  TOUTPT  ENTRY  (FIXED  RINOl))! 

OCL  INITT  ENTRY (FIXED  BIN(31))I 
DCL  CHER  FIXED  DEC (S*2) « 

DECLARE  LINE  CHAR (114)  ! 

DCL  ( JENNY  1 » JENNY 2 » JENNY 3 » JENNY*  » JENNY5)  CHAR (1 ) EXTERNAL! 

DCL  ans  Char ( 00 ) vari 

DCL  PROMPT  CHAR ( 1 ) EXTERNAL! 

DCL  TYPE  CHAR ( I ) ! 

DCL  IX  FIXED  DEC (5*0) ! 

DCL  SCPATCH  FILE  ENV (F { 00 » 80 ) ) I 

DCL  OIREC  FILE  RECORD  KEYED  ENV  ( INDEXED  FUIAOtUAMI 
CALL  INI TT ( 120 ) 1 
CALL  TSEND! 

ULIMIT  = 999.991 
IX  = 0! 

/* 

JENNY  1 = P =>  PROJECT  MANAGER 
JENNY  1 = R =>  R L D COMMANO 
JENNY l = N =>  OTHER 
JENNY2  = C =>  WRITE  ACROSS  SYSTEMS 
JENNY 2 = N =>  NOT  AVAILABLE 

JENNY 3 = P =>  APLICATION  CODE  POSITION  DEPENDENT 
JENNY 3 = NOT  AVAILABLE 
JENNY*  = M =>  MAX  LINES  CONTROL 
JENNY*  = N =>  NOT  AVAILABLE 

JENNY5  = * =>  WINDOW 

JENNY5  = N =>  NOT  AVAILABLE 

«/ 

IF  LENGTH! JBACBA)  = 0 THEN  DO! 

JENNY  1 = *P»! 

JENNY2  * 'N'l 

JENNY 3 » *NM 

JENNY*  s 'N'l 

JENNY5  * »N»I 

NSARY  s 1000! 

NRARY  = 100! 

END! 

ELSE  DO! 

JENNY  1 * SUBSTR(jBACBA.ltl) ! 

JENNY2  * SUBSTR ( JBACBA»2. 1 ) ! 

JENNY3  * SUBSTH (JBACBA.3. 1 ) 1 
JENNY*  * SUBSTH (jBACBAt*. 1 ) ! 
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JENNY  b = SUBSTW (JBACBA* 5* 1 ) I 

IF  LENGTH (JBACBA ) >*  10  THEN 

GET  STHINGI  JBACBA)  EDIT  (NSARY  ) (X(5)*F(5))I 

ELSE  NSARY  * iOOOl 

IF  LENGTH( JBACBA)  >*  IB  THEN 

GET  STRING ( JBACBA ) EDI T ( NRARY ) (X ( 10> *F (5) > ( 

ELSE  NRARY  * 1001 
END1 

PUT  EDI T ( • DO  YOU  NEED  FULL  PROMPTING  ?*)  <COL(l).A)l 
PUT  SK I P ( 2 > 1 

GET  EDIT (PROMPT)  (COL (1 ) *A (5) ) 1 

LABZ:  PUT  EDI T ( * ENTER  SYSTEM  TYPE')  (COu(l).A)l 

IF  PROMPT  = 'Y*  THFN 

PUT  EDI T ( »N  - NEK  ( THt  SYSTEM  DOES  NOT  HAVE  A CODE)'* 

•o  - old  (The  system  is  in  the  main  file)') 

(COL (5) .A) 1 
PUT  SKIP  (?)  1 

GET  EDIT! TYPE ) ( COL < 1 ) » A ( S) ) » 

IF  TYPE  = • N • THtN  CALL  GMAP ( T YPE ) 1 
IF  TYPE  = *0*  THEN  do; 

LABZZ:  PUT  EDI T ( • DO  YOU  WISH  TO  WRITE  REPORTS  OR  TO  EDIT  DATA?') 
(COL ( 1 ) *A)  1 
IF  PROMPT  = * Y ' THEN 
PUT  EDIT( 'ENTER'* 

•E  - EDIT  DATA'* 

» R - WRITE  REPORTS'* 

•N  - NONE • ) 

(COL ( 1 ) *A. COL <b) . A* COL (5) .A. COL (5) . A) I 
PUT  SKIP  (?)  1 

GET  EDIT ( TYPE ) ( COL (1 ) ♦ A ( 1 ) ) I 

IF  TYPE  = 'N*  THEN  GO  TO  LABZZZI 
IF  TYPE  = 'E'  THEN  CALL  GRAP (TYPE ) 1 
IF  TYPE  * *R • THEN  DO! 

IF  JENNY5  = 'W*  THEN  UOl 

PUT  EDIT ( 'DO  YOU  WANT  A WINDOW  OF  DATA  ?')  (COL ( 1 ) * A ) I 
PUT  SKIP  (?)  I 

GET  EDIT (NSANS)  ( COL ( 1 ) . A ( 1 ) ) 1 
IF  NSANS  = • Y ' THEN  DO  I 
TYPE  = • L ' ; 

CALL  GRAP ( TYPE ) I 
ENOI 

ELSE  DO! 

LLIMIT  = 0.01 
ULIMIT  * 999.991 

End; 

ENDI 

CALL  REPORTS ( IX*TYPE) I 
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type  = 

IF  IX  = 1 THEN  00 1 
OPEN  FILE (SCRATCH)  INPUT ! 

CALL  6RAP ( TYPE ) * 

CLOSE  FILE (SCRATCH) ! 

END  I 

else* 
end  i 

GO  TO  LABZZI 

end; 

LABZZZ : PUT  EDIT ( *00  TOU  *ISH  TO  CONTINUE  ?•)  (C0L(1).A)I 
PUT  SKIP (2) I u,*# 

GET  EOIT(ANS)  (COL ( 1 ) * A (80) ) I 

IF  ANS  = * Y • I ANS  = 'YES*  THEN  60  TO  LABZl 
END  MASTER! 
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NEW!  PROC  (NO..SYS)  * 

OCL  PROMPT l CHAR  ( \ ) » 

OCL  PROMPT  CHAR(l)  EXTERNAL* 

OCL  RE_STAWT  CmAR ( 2 ) VAR  I 

DECLARE  MAjON_SYSTEMl  CHAR(12),  MA J0R_SYSTEM2  CHAR<20)» 
DECLARE  T.SEND  CHAR(40) 

I N I T ( • SCHEDULES  • )» 

DECLARE  ANS  CHAR<80)  VAR* 

DCL  STOPI  FIXED  DEC ( 1 ) * 

OCL  REMARK  CHAR(72)  VAR* 

DECLARE  LETTER  CHAP<27)  INIT ( ' ABCDEFGHI JKLMNOPQRSTUVWXYZ  • 
DCL  START_DATE_CODE (5)  FIXED  DEC(5.2)* 

DCL  STOP_DATt_CODE 15)  F I XtB  DEC(5*2)t 
DCL  EVENT_DATE_CODE (5)  FIXED  DEC(5t2)» 

DCL  CAL.DATE  FIXED  DEC(5.2)» 

DECLARE  (NTYPEtNUMR)  FIXED* 

OCL  INITT  ENTRY ( F I XED  8IN(31)>* 

DCL  TOUTPT  ENTRY (FIXED  ,BIN(31) ) * 

DCL  IOWAIT  ENTRY  < F I XEl^  BIN(31))» 

DCL  FDATE  ENTRY ( CHAP ( V ) , F I XED  DEC (5*2) » F I XED  bIN<15>)» 

DCL  TITLE1  CHAR(20)  VAR,  TITLE2  CHAR(24)  VAR» 

STP_TITlE  CHAR ( 2B ) VAR,  I9_N0  FIXED* 

AS_OF_DATE  CHAR (9)* 

OCL  (NO_DVP_STPS*NO_REMaRKS,COMPLET(10)>  FIXED  DEC *5.2) » 
DCL  (EVENT_DATE(10) . STAPT_DATE ( 1 0 ) , STOP_DATE ( 1 0 ) ) CHAR(9)» 
DCL  NO_S Y 5 FIXED  DEC(5*0)» 

DCL  NOSYb  FIXED  DEC(S.O)* 

DCL  JdA  CHAH(J)  VAR* 

DCL  RE ADA ( 10)  LABEL* 

DCL  (NREAU* I* 1 1 . 1 II ,NNN)  FIXED  DEC(5*0)» 

DCL  STD  FILE  ENV ( F ( BO . 60 ) ) * 

DCL  SCRATCH  FILE  ENV (F ( 80 . BO ) ) » 

DCL  MAXNO  FIXED  DEC(5*0)» 

OPEN  FIlL(STO)  INPUT* 

OCL  STDTLt  CHAR ( 28 ) BASED ( TP ) * 

DCL  T IP  (500 ) POINTER* 

ON  CONVERSION  BEG  I N * 

PUT  EDIT ( • YOUR  INPUT  WAS  IN  ERROR')  ( COL ( 1 > • A)* 

PUT  SK IP (2) J 

PUT  EDIT (ONSOURCE)  (CUL(l).A)* 

PUT  SK I P ( 2 ) * 

PUT  EDIT ( 'RE-tNTER* ) (C0L*2)»  A)* 

PUT  SK  I P ( 2 ) * 

REVERT  CONVERSION* 

GO  TO  READ* (NREAD) * 

ENPI 

ON  ENDFILE  (STD)  GO  Tu  XX* 


ST1.00P:  DO  Ii)_NO  * 1 TO  SO 0 < 

ALLOCATE  stdtle* 

6ET  FILE(STD)  tOlT(STuTLE)  ( COL ( 1) » A ( 28 ) ) * 

TIP(IO.NO)  = TP* 

END  STLOOPI 

XX!  MAXNO  = lD_NO  - 1» 

CLOSE  F 1 Lt (STO) * 

PUT  EDIT ( • IS  This  A HE-STAKT  OF  AN  OLD  JOB  ?») 

(COL (S) t A)  I 
PUT  SKIP (2)  * 

GET  EDIT  (RE_ST ANT  ) (CUL ( 1 ) • A (2) ) * 

IF  SUBSTW(PE_STaHT,1.1)  a «Y*  THEN  RESTART : DO* 

BEGIN* 

DCL  HCARD  CHAR(RO)  BASED(PC)* 

DCL  PCARD(SOO)  POINTtH* 

DCL  HOLD  CHAH(oO)  VAP* 

DCL  ( I . J)  F ! At U DEC (5.0) * 

ON  ENDFILE (SCRATCH)  RtG IN  5 
IF  I<  7 THEN  DO* 

PUT  EO I T ( ‘RESTART  F A l L E 0 YOU  MUST  ENTER  ALL  DATA  AGAIN*) 

(COLO)  .A)  * PUT  SKIhi?)  * 

CLOSE  FILE (SCRATCH) * 

GO  TO  XX** 

END* 

GO  TO  XXI  * 

END* 

OPEN  F IlE (SCRATCH)  INPUT! 

L 1 ! DU  I = 1 TO  500 « 

ALLOCATE  HCARD* 

GET  FILE (SCRATCH)  EDIT(hCARD)  ( COL ( 1 ) • A ( 00 ) ) * 

PCARD(I)  = PC* 

END  LI  * 

XXI  ! CLOSE  FILE (SCRATCH) * 

OPEN  FIlE  (SCRATCH)  OUTPUT* 

L2:  DO  J = 1 TO  1-2* 

PC  * PCAHO ( Ji * 

PUT  F ILE (SCRATCH)  EDIT (HCARD)  (COl(1)«A)» 

IF  J ■>=  * Then  free  HCARD* 

END  LSI 

PC  = PCARDO)  * 

GET  STRING(HCARD)  E 0 1 T < NO_DVP_S TPS . NO_REMARKS ) ((2)F(5.0))» 

FREE  HCAHO* 

PC  = PCARD ( 1-1 ) * 

NO_DVP_sTPS  = NO_OVP_STPS  - I ♦ 5* 

IF  NO_DVP_STPS  > 0 THtN  DO* 

CALL  BELL* 

CALL  TSENO* 


PUT  EDIT ('THE  LAST  DEVELOPMENT  STEP  HAS*)  <C0L(5MAM 
PUT  EOIT(HCARD)  (COL(l)tAM 

PUT  EDI T < * START  WITH  NEXT  DEVELOPMENT  STEP*) 

(COL (5) »A>  ? 

PUT  SK I P ( 2 ) ; 

CALL  I OWA IT  ( JO  ) ( 

GO  TO  XX2? 

END  * 

IF  NO.REMARKS  ♦ NO_DVP_STPS  > 0 THEN  DO? 

CALL  BELL? 

CALL  TSEND? 

PUT  ED  I T ( • THE  LAST  REMARK  w AS*)  (C0L(5>#AM 
PUT  EOIT(HCAWD)  (COL(l).A)? 

PUT  EDIT ( ‘START  WITH  NEXT  REMARK*) 

(COL  (6)  ♦AM 
PUT  SKIP (2) ? 

CALL  I OwA I T ( 30 ) ? 

GO  TO  NULLDVL? 

END? 

GO  TO  XX3? 

END  RESTART? 

XX4J  OPEN  FILE (SCRATCH)  OUTPUT? 

/<*  */ 

/*  »«»««  START  SET  UP  OF  REPORT  HEADING  *****  */ 

NREAD  = 15 
NREAD  = 2? 

CALL  NEwPAG? 

CALL  TSEND? 

PUT  EDITCENTER  MAJOR  SYSTEMS*)  (COL<l)«A) « 

PUT  EDIT(*/ / /• ) ( COL  ( 1 ) » A ) 5 

PUT  SKIP (2) ? 

CALL  REVERSE? 

GET  EDIT l MA J0R_SYSTEM1 ♦ MA JOR_SYSTEM2 ) (COL (2) ♦ A ( 1 2) *X ( 1 ) ♦ A ( 20 ) ) I 
READ# ( 2 M PUT  EDIT ( ‘ENTER  PROJECT  TITLE*)  (COL(l)t  A) J 

PUT  EO I T ( • / / /*) 

(COL ( 1 ) ♦A) ? 

PUT  SKIP (2) ? 

CALL  REVERSE? 

GET  EDIT  (TITLE1 » TITLE2)  <COL(2)t  A(20M  X(l)»  A(24))  ? 

NREAD  = 3? 

REA0*(3)S  PUT  E0IT(*AS  OF  DATE*)  (COL(ll*  A)? 

PUT  EDIT  ( * / * * /*)  (COL  (IMAM 

PUT  SK IP ( ? ) ? 

CALL  REVERSE? 

GET  EDIT(ANS)  ( COL ( 1 ) ♦ A ( 80 ) ) ? 

GET  STRING(ANS)  EDI T ( AS_OF_DATE > <X(1U  P * 99AAAAA99  • ) ? 

NREAD  = <♦? 
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CALL  FDATE ( AS.OF_DA TE » C AL.BATE . 0 ) ! 

CAL.DATE  = CAL.OATE-1. 

R:  0«U)i  POT  EDIT  ('ENTER  THE  NUMBER  OF  TASKS  PLUS  EVENTS*) 

(COL ( 1 ) «A) ( 

PUT  EDIT  ( • / /*)  (COl(1)»A)  I 

PUT  SKIP (2) S 
CALL  REVERSE! 

GET  EDIT (NO.DVP.STPS)  (COL (2) »F (5»0> ) ! 

NREAO  = b! 

READ# ( 5 ) : PUT  EDI T ( 'ENTER  THE  NUMBER  OF  REMARKS')  (COL(I)»A)l 

PUT  EDIT  ( • /_ /•)  (CUL(1)»AM 

PUT  SKIP (2) ! 

CALL  REVERSE! 

GET  EDIT (NO_REMARKS)  (COL <2) »F (5»0) ) ! 

/*  • •••«  o SET  OF  RtPORT  HEAOING  *****  */ 

/*  «•••»  put  HEADING  IN  FILE  *****  */ 

PUT  F IlE ( SCRATCH)  EDIT l T.SEND »CAL_DATE  ) 

(COL ( 1 ) » A*F (S»2) ) ! 

PUT  FILE (SCRATCH)  EDI T ( MAUOR.SYSTEM1 *MA J0R.SYSTEM2) 

(COL ( I ) .At A)  ! 

PUT  FILE(SCRATCH)  EDI  T (TITlEI  tTITLE2.  AS.OF_.jATE) 

(COl ( 1 ) ♦ A» A, A)  ! 

PUT  FILE (SCRATCH)  EDIT (NO.OVP.STPS»NO .REMARKS) 

( COl  ( 1 > . ( 2)  F ( b»  0 ) ) t 

/*  *****  END  HEADING  INPUT  TO  FILE  *****  */ 

/*  *****  START  ENTERING  STEP  DATA  *****  */ 

XX2 : NULLU  = 0! 

L00P1:  DO  II  = 1 TO  NO.DVP.STPS! 

NNN  = 1 ! 

CALL  NEwPAG! 

CALL  TSEND! 

NPEAD  = 6! 

READ* (fO  : PUT  EDIT  ( ' tNTER  ELEMENT  TYPE  AND  NUMBER  OF  ELEMENTS') 
(COL ( 1 ) »A)  ! 

IF  PROMPT  = • Y ' I PROMPT  1 = ' Y * THEN 

PUT  EDI T ( ' TASK  OR  EVENT  '*  ♦ FOLLOWED  BY  NUMBER' > 

(COL (2) • A)  ! 

PUT  SKIP  (2)  ! 

GET  ED1TUNS)  (COL(l)*  A(80>)  ! 

IF  SUBSTH(ANS*1»1)  = 'N'  THEN  DO! 

NULLD  = NULLU  ♦ l! 

GO  TO  NULLDVL ! 

END! 

IF  SUBSTR (ANS.1.1)  ='t'  THEN  NTYPE  = 1! 

ELSE  NTYPE  = 0! 

NUMB  = VERIFY (ANS. LETTER) » 

IF  NUMB  > 0 THEN  GET  bTRING(ANS)  EDIT(STOPI)  (X (NUMB-1 ) *F ( 1 ) ) I 
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ELSE  SToPI  = 11 

IP  NT VRE  = 0 THEN  DO! 

IP  STOPI  > 3 THEN  DO* 

STOP  I = j; 

PUT  EDITCMAX  NUMBER  UP  SUB  TASKS  IS  3 •) 

(COL ( S) . A)  I 
END! 

NREAD  = 7; 

HEAD* ( 7 ) : PUT  EO I T ( • / ID«  / TASK  / STR.QT. 

.*/  STP.DT  / COHPlT  /•)  4 COL  ( 1 > * A.  AM 
PUT  SK I P ( ? ) * 

PUT  EDIT  ( • /* */ / * * / • , 

' * * /*** ***/•>  (COL  ( 1 ) .A.  A)  ; 

put  skip  i2> ; 

CALL  REVERSE* 

GET  EDIT(ANS)  (COL ( 1 ) . A (80) ) I 

6ET  STRING (ANSI  EDIT ( 1D_N0.STP._T ITlE»START_DATE (NNN) .STOP_OATE (NNN) 
COMPlET  (NNN)  ) (X(2),  F (5.0) .X<1) .A<28) .X(l) .A<9) »X<1> »A<9> , 

X U>  .P  (5.2)  ) I 

CALL  PDATE (STAHT_DATE (NNN) ♦ ST AR T_D A T ENCODE ( NNN ) .2)1 
START_DATt_COOt (NNN)  = S TART_OA TE_COOE < NNN) -1 1 
CALL  PDATE  <ST0P_UATE (NNN) » STOP_DA TE _COOE (NNN) .3) I 
STOP_DATE_COOt (NNN)  = STOR_DATE_CODE (NNN)  -II 
/•  */ 

/*  enter  mult  elements  */ 

/*  • •«*•  start  op  input  of  a task  *****  */ 

00  I = 2 To  STOPI  I 
NNN  = NNN  ♦ 1 5 
NREAD  = M 

READ#  ( 8 ) : PUT  EOITC/  STR.DT . / STP.DT.  / COMPLT  /•) 

(COL ( 1 ) . A)  ? 

PUT  EDIT  ( • / * * / * * /*** ***/*)  (COL  ( 1 > * A)  I 

PUT  SK  JP  (2)  I 
CALL  HEVERSE5 

GET  EDIT(ANS)  (COL(l) .A(BO) ) « 

GET  STRING (ANS)  EO I T ( ST AKT_DATE ( NNN ) » ST OP_D ATE ( NNN ) .COMPLET (NNN) ) 

( X ( I ) » A ( 9 ) »X(1) » A ( 9 ) * X ( 4 ) »F (S.2) ) » 

CALL  PDATE  (START_DATE  (NNN)  ♦ ST ART_DA TE.COOE ( NNN ) .2)1 
STAHT_DATE_CODE (NNN)  = ST  ART_DATE_CODE ( NNN)  - 1 1 
CALL  PDATE (STOP_D ATE (NNN) .ST OP_DATE_CODE ( NNN ) .3)1 
STOP_OATt_CODE (NNN)  = STOP_DATE_CODE (NNN)  -II 

/*  .....  «••«»  •/ 

end  i 

IP  ID_NO  > 0 N ID_NO  < *AXNO  * 10  THEN  DO  I 
I D_NO  = I D_NO/ 101 
TP  = T I P ( I D_NO ) I 
STP_TITLE  = STOTLEI 
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end; 

/*  ««•«*  END  input  OF  A TASK  *****  */ 

/*  «««««  PUT  TASK  IN  HlE  *****  */ 

PUT  F ILE (SCRATCH)  EDIT ( -NNN»  STP_T  I T'_E  * (ST  ART_DATE_CODE ( 1 1 1 ) » 
STOP_DATE_CODE ( 1 1 1 ) tCOMPLET ( III ) DO  1 1 1 = 1 TO  NNN)  ) 

(COL ( 1 ) »F (2*0) .A.  (NNN*J) P*999V99*  ) ? 

end; 

/*  »««««  «»«««  */ 

IF  NTYPt-'=0  then  do; 

IF  STOPI  > 9 THEN  DO; 

STOPI  = 9; 

PUT  EDIT(«MAX  number  OF  SUB  EVENTS  IS  9 •) 

(COL (5)  .A)  ; 

end; 

PUT  EDIT ( 1 / ID*  / EVENT  / DATE  / •) 

(COL ( 1 ) f A) ; 

PUT  EDI  T ( ' /* */ / * * /•) 

(col ( l ) . a)  ; 

PUT  SK IP (2)  ; 

call  reverse; 

GET  EDIT(ANS)  (COL ( 1 ) «A (80) ) ; 

GET  STRING(ANS)  EDI T ( I D _NO ♦ STP_T I TLE ♦ E VENT_D AT E (NNN ) ) 

(X (2) »F ( S » 0 ) »X(1) * A ( 20 ) « X ( 1 ) » A ( 9 ) ) * 

CALL  FDATE (EVENT.DATE l NNN) . ST AfiT_DATE_CDDk (NNN) • 1 ) t 
START_DATE— CODE (NNN)  = ST aRT_DaTE_CODE ( NNN ) - 1 ; 

IF  IU_N0  > 0 & I D_N0  < MAXNO  * 10  THEN  DOi 
ID_NO  = id_no/io; 

TP  = T I P ( I D_NO ) ; 

stp.title  = stdtle; 

end; 

else; 

DO  I = 2 TO  STOPI; 

NNN  = NNN  ♦ 1 ; 

NREAD  = 9; 

READ#  ( 9 ) : PUT  EDI  T ( ' / EVENT  DATE  /•)  (C0L(1)»  A); 

PUT  EDIT('/_^* * /•)  ( COL ( 1 ) * A); 

PUT  SKIP (2) ; 

call  reverse; 

GET  EDIT(ANS)  ( COL ( 1 ) ♦ A ( 80 ) ) ; 

GET  STRING ( ANS)  EDIT (tVENT_DATE (NNN) ) ( X ( 1 ) *P • 99AAAAA99 * ) I 

CALL  FDATE (EVEN T_D ATE (NNN) ♦ STAR T_DATE_CODE (NNN) *1)1 
START_DATE_CODE (NNN)  = START_DATE_CODE ( NNN)  - 1; 

end; 

/*  *****  end  input  of  an  event  *****  */ 

/*  *****  put  EVENTS  IN  FILE  *****  */ 

PUT  FILE (SCRATCH)  EDIT ( NNN » STP_T I TLE » (ST ART_OATE_CODE ( 1 1 1 ) 

DO  III  = 1 TO  NNN) ) 
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(COL (1) *F (2*0) » A » ( NNN ) P * 9V9 V99  • ) | 

END) 

END  LOOP  1 l 
NULLDVL : 5 

/*  «••««  END  ENTER I NO  ELEMENT  DATA  *****  P/ 

/»  • •«»»  START  ENTERING  REMARKS  *****  */ 

CALL  NEwPAGI 

call  tsend; 

LOOPS ! DO  II  = 1 TO  NO_REMARKS» 

PUT  EDI T ( ’ENTER  REMARKS  * • 1 1 ) 

(COL (1) t A » F (5*0) ) I 

PUT  EQI T ( * /* , 

1 * * 

’ .. •/*)  (C0L«1)  »A*  A*  A)  » 

PUT  SKIP (2)  I 
CALL  REVERSE  * 

GET  EDIT(ANS)  ( COL ( 1 > « A ( tiO ) M 

IF  SUbSTR ( AMS. 1 ♦ I)  = *N*  THEN  GO  TO  XXAT 

GET  STRING(ANS)  EDIT(REMARK)  <X(2>*  AITS))! 

/*  *****  put  remarks  in  file  *****  */ 

PUT  file (SCRATCH)  EDIT(REMARK)  (COL < 1 ) . A ( 78) ) I 
/*  ««*»«  ««»«»  • / 

END  L00P2; 
xxa:  ; 

/*  *****  END  ENTERING  REMARKS  *****  */ 

/*  */ 

CLOSE  FILE (SCRATCH)  J 

XXT:  ; 

/»  *#«*«  *****  »/ 

DO  I = 1 TO  MAANOJ 
TP  = T IP  ( I ) * 

FREE  STDTlEI 

end; 

return; 

/*  *»«*#  «««»«  «/ 

END  NEw; 
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NEwi:  PROC* 

OCL  INITT  ENTRY (F IXED  4lN(31)M 

OCL  NUMBt R CHaR(R)  INI T < • 1230S6789* ) » 

OCL  TOUTPT  ENTRY(FIXEU  RlN(31)){ 

OCL  NO_SYS  FIXED  DECO.O)* 

DCL  PROMPT  Ci.AR(l)  EXTERNAL* 

OCL  PROMPT  I CHAR (lit 

OCL  NL  ABEL  FIXED  OECO.OI*  CTYPE  CHAR  ( 1 ) * 

OCL  NCODE  CHAR ( 1 ) ; 

OCL  L ABO (0:4)  LABEL  * 

OCL  SCPATCH  FIcE  ENV  (F  (R0.80) ) I 
NO_SYS  = 1 l 

LARXSPUT  EDIT  < *»«ILL  YOU  ENTER  THE  DATA  FROM  THE 
•KEYBOARD  OR  IS  IT  PRESENTLY  ON  A FILE  ?•) 

(COL  ( 2 ) ♦ A * A ) I 
PROMPT]  = »N»; 

IF  PROMPT  = • Y • | PROMPT1  = *Y*  THEN  OOI 

PUT  EDIT ( 'ENTER' . 'K  - KEYBOARQ'.'F  - FILE'.'N  - 

(COL (3) .COL (b) .A. COL (b) , A .COL (5) . A) I 

END* 

PUT  SK IP  (?)  ; 

GET  EDIT (CTYPE > (COL ( I ) . A (1 > > * 

I = INDEX ( 'NkF • .CTYPE)  I 
GO  TO  LABO (II* 

LARO(O):*  /*  CODE  NOT  FOUND  */ 

PUT  EU I T ( * RE-ENTER  CODE  •) 

(COLO)  .A)  J 
PUT  S* IP  (2 ) * 

PROMPT  1 = 'Y'S 

GO  TO  LABXJ 

LARO ( 1 ) : /*  NONE  */ 

PUT  EDIT ( ' NO  OATA  TO  INPUT*)  (C0L(1)»A)* 

PUT  SK IP  (?)  » 

/*  «•*..  */ 

RETURN* 

/«  «»•««  */ 

L ABO ( 2 ) : J /*  ENTER  FROM  KEYBOARD  */ 

CLOSE  F ILE (SCRATCH) * 

NO_SYS  * 1* 

CALL  NEw (NO.SYS) * 

NPPT  = 0* 

LAB0(3>:»  /•  ENTER  FROM  FILE  */* 

IF  CTYPE  = »F*  THEN  001 

PUT  ED  I T ( * I S YOUR  OATA  fN  A REPORT  FORM  ?•) 
(CPL(1 ) .A)  I PUT  SK I P ( 2 ) * 

GET  EDIT (CTYPE ) ( COL ( 1 ) . A ( 1 ) ) * 

IF  CTYPE  = 'Y*  THEN  NPRT  = 20* 


• . 


NONE* 
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ELSE  NPrT  = 05 
E Nf  > * 

BEGIN* 

DECLARE  LINE  CHAH (114)  I 
OECLAHE  1 CARD  BASED (R). 

? DELETE.Flau  BIT(H) * 

? ASF .CODE  CHAH  ( 7 ) « 

? APLl.COOE  CHAR (II) « 

?.  HAJ0H_SYSTEM1  ChAH  ( 1 ? ) * 

? MAJOH.SYSTEM?  CHAH  ( 20  > ♦ 

? TITlEI  chap  (?0>  . 

? TITLE?  CHAh  (?<►>  ♦ 

? AS.OF_.DATE  ChAH(IO), 

? NO_DVL_STPS>  FIXED  DEC  (b*  0 ) * 

? NO.BEMAWKS  FIXED  DEC (b»0 ) * 

? FHE_END  FIXED  DEC ( S*  0 ) I 
DECLARE  1 DEVEL_STEP  BASED (0) * 

? DElETE_FLAG  BIT (B) . 

? INFO. 

3 ASE.COOE  CHAR ( 7)  . 

3 APLI.COOE  CHAR (11). 

3 TYPE_NUMBER  FIXED  OEC(?)» 

3 TITLE  CHAW (28)  . 

3 STEP.DATES (9)  FIXED  0EC(b*2>. 

3 COST(M  FIXED  DEC ( 5 * 2 ) * 

3 REST  Ch AH  ( 28 ) * 

DECLARE  1 REMAHKS  BAStD(R), 

? DELETE.FLAG  HIT (m) » 

? ASE.CODE  CHAH(7) , 

? APLI.CODE  ChAH  (ID* 

2 REMahk  CHAR (BO) « 

? REST  CHAH Us) I 
DCl.  ANS  ChAR  ( HO  ) VAR( 

DCL  PP  P01NTEH5 

DCL  (10*101)  FIXED  DtC(5*0)» 

DCL  (X?.X3.X4)  HIC'RRRVM 

DCL  XI  PIC*RRS»M 

DCL  DUMMY  CHAW(HO)  VAH* 

OECLAHE  DIHEC  FILE  RECORD  KEYED  ENVUNDEXED  FdUOiIUlM 
P = ADDR(LINE)  I 
Q = PI 
R = PI 

/*  «««««#«««•»»»»»*»«««»»»»•••«••••••»»••••••••  */ 

/*  OCFILEU)  =>  StUUENT I AL  UPDATE  +/ 

/*  OCFlLEt?)  =>  DIRECT  UPDATE  */ 

/*  OCF ILE (3)  =>  SEQUENTIAL  OUTPUT  */ 

/*  •«•«»«»»••»«»•«««««*«»»•«•«•••«••«»••••••«•«  #/ 
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ON  FNDFILE  (SCRATCH)  BtGINS 
REVERT  ENOFILE (SCRATCH) s 
GO  TO  finish; 
end; 

ON  CONVERSION  BEGINS 

REMAHrfS.KEST  = • RRRRRkHRRRRRKRRR  • 5 

NOREMARKS  = noremarks  - is 

GET  STRING(ANS)  EDIKREmARK)  (A(80))S 

NOPVLSTPS  = IIS 

REMARKS. ASE_CODE  = AStCOOE? 

WRITE  FILE ( DI REC ) FROM ( REMARKS ) KEYFROM ( ASECOOE ) » 

GO  TO  L3S 
ENDS 

ON  ERROR  BEGINS 

PUT  EDIK'YOU  HAVE  SOMETHING  WRONG  WITH  YOUR  MAIN  FILE.** 

•DO  NOT  WRITE  REPORTS  OR  ENTER  A NEW  SYSTEM  •* 

•UNTIL  YOU  HAVE  CONSULTED  THE  "SCHEDULE"  •» 

•PROGRAMMER.  • » 

•YOU  may  CONTINUt  TO  tD I T DATA  IF  YOU  WISH.*) 

( COL ( S > . A ♦ COL (5) « A « A » A ) S 
PUT  SKIP  (?)  S 

go  to  finish; 

ENDS 

CLOSE  F ILE (SCRATCH) S 
10  = 3 5 

OPEN  FILE ( SCRATCH)  INPUTS 
FIl.E_END  = 6 S 
TYPE_NUMbER  =15 
CARD.DFLETE_FLAG  = ( H ) » 0 • B S 

DCL  APLICODE  CHAR (11)*  ASECODE  CHAR<7)  VARS 

LABXl:  PUT  EDIK*  DO  YOU  WANT  THIS  DATA  ADDED  TO  THE  MAIN  FILE?') 
( COL ( 1 ) « A ) S 
PUT  SK IP  (2) S 

GET  EDIT(ANS)  (COL ( 1 ) » A (60) ) S 
IF  ANS  = • Y • | ANS  =»YES»  THEN  DOS 

ON  KEY(DIKEC)  BEGINS 

PUT  ED  I T ( • FILE  CODE  TOR  THE  SYSTEM  IS  •. ASECODE) 

(COL (3) .A, A) S 
PUT  SK IP ( 2 ) 5 
GO  TO  I.ABX25 
ENDS 

/*  «<>*»«  «««««  */ 
io  = l ; 
xi  = o; 

CALL  OCFILE ( IU) S 

do  while ( • i • e » ; 

XI  = XI  ♦ IS 
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ASECODE  = CMAH  ( x 1 ) | | • 0000  ' ; 

READ  FILE(DIHEC)  KE  Y ( ASECODE ) SET(PP>! 

end; 

LABX2!  PUT  EDIT ( * ENTER  APLI  CODE')  (COL(l)tA)* 

PUT  SKIP  (2) * 

NCODE  = SUBSTRUSECODt.1.1)  « 

GET  EDIT (APLICODE)  ( CUL ( 1 ) ♦ A ( 1 1) ) ! 

10  = j: 

CALL  OCFILE ( 10) 5 
CAPD.APlI.COOE  = APLICODE! 

GET  FILE (SCRATCH)  ED  I T ( DUMMY ) ( COL ( 1 ) » A ( 80 ) ) ! 

GET  FILE (SCRATCH)  EDI T (CARD. MAJ0R_SYSTEM1 »CARD.MAJ0R_SYSTEM2) 

( COL ( 1 ) ♦ ( NPPT ) X < 1 ) . A ( 1 2 ) * A ( ? 0 ) ) 5 

GET  FILE (SCRATCH)  EDI T (CARD.TITLE1 .CARD. TITLE2. CARO. AS  OF_D ATE ) 
< COL ( 1 ) * A ( ?0 ) *A(24)  « A ( 1 0 ) ) ( 

X 4 = 0! 

RPT : GET  F I LE ( SCR ATCh ) EDIT ( C ARD • NO_D V L_S T PS » CARD.NO— REMARKS) 
(COL  (l)t(?)F(5*0)M 
NOREMARKS  = C ARD . NO_RtMARKS ! 

NODVLSTPS  = CARD.NO_DVL_STPSI 

IF  CTYPE  = 'Y*  & X<*  -=  0 THEN  GO  TO  L2» 

CARD.NO_DVL_STPS=O.OJ 
CAPD.NO_REMARkS=O.OJ 
X2  = 0! 

ASECODE  = SUBSTR(AStC0DE«i»3) I ICHAR(X2) I 
CARD. ASE_CODE  = ASECOUEj 

WRITE  FILE(DIREC)  FROM(CARD)  KEYFROM ( ASECODE > ! 

L2:  DO  II  = 1 TO  NODVLSTPS; 

X3  = 11*10  ♦ xa  ; 

ASECODE  = SUBSTR (ASECODE* i .3) » ICHAR(X3) ! 

DEVEL_STEP.ASE_CODF  = ASECODE! 

GET  FILE (SCRATCH)  EDITUNS)  ( COL ( 1 ) ♦ A ( 80 ) M 
00  III  = 1 TO  a; 
cost (ill)  = o.o; 
end; 

GET  STPING(ANS)  EDI T ( NNN)  (F ( 2 • 0 ) ) I 
TYPE_NUMbER  = NNN! 

MMM  = A8S (NNN) ! 

DO  HI  = MMM  TO  9! 

STEP_DA  TES (III)  = 0.0! 

END1 

GET  STRING(ANS)  EDIT(TITLE)  ( X ( 2 ) . A ( 28 ) ) » 

IF  NNN  < 1 THEN  MMM  = 3*MMM ! 

GET  STRING(ANS)  EDI T < ( STEP_DATES (III)  DO  III  = 1 TO  MMM)) 

(X (30) . (MMM)  ( F ( 5 » 2 ) ) ) ! 

DEVEL_STtP.REST  = • SSSSSSSSSSSSSSSSSSSSSSSSSS M 
WRITE  FILE(DIREC)  FROM (DEVEL_STEP)  KE YFROM ( ASECODE ) I 
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1 


END  L*i 

REMARKS. REST  = • HRRRRKHRRMRRRRRR • I 
X4  = X 3 5 

L3:  DO  li  = 1 TO  NOREMARKS  t 
X4  = (ia  ♦ NODVLSTPS) *10* 

ASECOOE  = SUBSTR (ASECuDE«1»3) I I CHAR ( X4 ) I 
REMARKS. ASE_COOE  = AStCODtt 

6ET  FILE (SCRATCH)  EO I T ( REMARK ) { COL ( 1 ) ♦ A ( 80 ) ) I 

WRITE  FILE(DIREC)  FROM (REMARKS)  KEYFROM ( ASECOOE ) I 
END  Lit 

IF  CTYPE  = • Y • THEN  GO  TO  RPTI 

end; 

finish:  CLOSE  FILE (SCRATCH) i 
CLOSE  FILE (DIHEC) I 

end; 


*/ 

RETURN  t 

/* 

««#«« 

*/ 

END  NEW  1 i 
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ROATE : PKOC (DaY_mONTH_YEAR*DATE_CODE>  J 
DECLARE  DAY_MONTH_YEAH  CHARACTERS); 

DECLARE  (MONTH)  CHARACTER (3)  ; 

DCL  ( YEAR*MONTH_CODE)  FIXED  DEC (5.2) ; 

DECLARE  DAY_F ACTOR ( 1 2 ) FIXED  DEC<5*2> 

INIT<31. 0*28. 0*31. 0*30.0* 

31.0*30. 0*31.0*31.0* 

30.0*31.0*30.0*31.0) t 
DECLARE  DATE ( 12 ) CHARACTER (3) 

INIT ( * JAN* • • FEB • * * MAR • » • APR*  * 

•MAY*  * * JUN'  « • JUL*  ♦ ' AUG*  * 

*SFP* . * OCT ' * *.NOV*  * 'DEC'  ) 1 

DECLARE  STARTJTEAR  FIXED  0EC(5*2)  INIT(76.0>* 
DATE_CODE  FIXED  DEC (5.2) , IDAY  FIXED  DEC(5*2>» 
DECLARE  (C1.C3)  CHAR(2); 

DECLARE  C2  CHAR (3) * 

DECLARE  (IDAY1.IYR)  PIC»99*? 

DECLARE  IDATE  FIXED  DEC(3M 
DECLARE  OFFSET  FIXED  0EC(2)  INIT(O)? 

/*  »«*««  START  FINDING  MONTH  *****  */ 

IDATE  = TRUNC (DATE_CODE ) ? 

IMON  = MOD ( IDATE* 12) J 
IF  IMON  = 0 THEN  DO» 

IMON  = 121 
OFFSET  = 1J 
END » 

C2  = DATE (IMON) 5 

/*  *****  END  FINDING  MONTH  CODE  *****  */ 

IYR  = TRUNC (DATE_C0DE/12)  ♦ ST ART_YEAR  - OFFSET; 
IDAY  = DATE.CODE  - TRUNC (DATE_C0DE ) J 
IDAY1  = IDAY*DAY_FACTOR(IMON) l 
IF  I DAY  1 = 0 THEN  DO; 

IF  IMON  = 1 THEN  DO; 

IMON  = 13; 

IYR  = IYR  - l; 

End; 

C2  = DATE ( IMON-1 ) ; 

IDAY 1 = DAY_FaCT0R(IM0N-1) 1 

end; 

ci  = char ( idayi ) ; 

C3  = CHAR ( IYR) ; 

/*  ••••»  CALCULATE  DATE  *****  */ 

DAY_MONTH_YEAR  s Cl  I I •*•  I IC2I  I •*•  I IC3; 

/•  ••••*  «««•«  */ 

END  rdate;  , 
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REPORTS:  PROC ( 1X.LTYPE) * 

DCL  (NSAPY.NPAPY)  F I XED  DEC(5)  EXTERNAL* 

DCL  PROMPT  CHAP ( 1 ) EXTERNAL* 

DCL  PQ  CHAP (1)1 

DCL  ( JENNY1 • JENNY2, JENNY3. JENNY*. JEMNY5)  CHAR ( 1 ) EXTERNAL* 
DCL  (LLIMIT.ULIMITtSTYP.NOYR)  FIXED  0EC<5.2>  EXTERNAL* 

DCL  SCRATCH  FILE  ENV <F ( 80 . 80 > ) * 

DCL  L ABO  ( 0 : 1 ) LABEL* 

DCL  PROMPT  1 ChAR ( 1 ) * 

DCL  LINE  CHAP ( 1 1 a ) * 

DCL  PM  POINTER* 

DCL  PS<*>)  POINTER  CTL* 

DCL  PR<*>  POINTER  CTL* 

DCL  LLINE  CHAR(IU)  BASED(PP)* 

DCL  INITT  tNTRY  (FIXED  BIN<31)>* 

DCL  TOUTPT  ENTRY  ( F I XEO  RIN(31>>* 

OECLAPE  1 CARO  BASEO(P), 

2 OfcLETE_FLA6  BIT (b)  , 

? ASE_COOE  CHAH (7)  . 

2 apli.code  Char  t i i > . 

2 MAjOP.SYSTEMl  Chak(12). 

2 MAJOR _SYSTEM2  CHAM(?0). 

2 TITlEI  CHAP ( 2 A ) . 

? TITLL2  CHAR ( 20 ) . 

2 AS_OF_DATE  CHAP (10). 

? ST_YP  FIXED  DEC (S.O) . 

? NO_YP  FIXED  DEC (5.0) » 

2 FILE.END  FIXED  DEC(S.O)* 

DECLARE  1 DEVEL_STED  BASEO(Q). 

? DELETE_FLAG  BIT (8) . 

2 INFO. 

3 ASE_CODE  ChaR ( 7) . 

3 APLI.COOE  CHAR (11)  . 

3 TYPE.NUMBER  FIXED  DEC<2). 

3 TITlE  CHAP (2ft)  . 

3 STEP_DATES(R)  FIxfcD  DEC(5.2). 

3 COST  l A ) FIXED  DEC (5.2) . 

3 REST  CHAH  (26) J 
DECLARE  1 REMARKS  BASED(R). 

2 DELETE_FL AO  dlT (d) . 

2 ASE_CODE  CHAR ( 7 ) . 

2 APLI.COOE  CHAR (11). 

? REMARK  CHAP (bO ) . 

2 REST  CHAP (IS) * 

DCL  AGENCY  CHAP (20 ) * 

DCL  HEF_OT  OEC(5»0)  I N 1 T t 7fe  > * 

DCL  T_SENO  CHAP  (AO) * 


v 
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DCL  (10. 101)  FIXED  DEC ( 5 » 0 ) ! 

OCL  CAL_UATE  FIXED  DEC (5.2) I 

/*  •«•••  *••••  •/ 

DCL  DIREC  F iLt  RECORD  KEYED  ENV ( I NDEXED  F (1140*114) ) I 
DCL  ASECOOE, tHAR ( 7 ) VAR; 

DCL  ANS  CM*R(80>  VAR» 

DCL  (UDTYPE.CTYPE.LTYPE.NCROSS)  CHAR(1)I 
DCL  C TYPE4*  ChAH  ( 2 ) » 

DCL  Li  PIC* 999 • » l2  PIC*9999‘! 

DCL  FILL  CHAR ( b ) » 

DCL  (NLABEL.IUIX.IY)  FIXED  DEC(5«0)» 

OCL  START J)ATE_CODE (5)  FIXED  DEC(5*2M 
DCL  STOP_DATE_COOE (S)  FIXED  DEC(5.2)I 
OCL  COMPLETE)  FIXED  0EC(6.2M 
DCL  ASECODE 1 CHAR  ( 7 ) ; 

DCL  APLICODE  CHAR  ( 1 1 ) VAR! 

DCL  APL1C00E2  ChaR(12)  VAR* 

dcl  stitle  Char < 1 > ; 

DCL  NSANS  CHAR ( 1 ) * 

DCL  T ARRAY (11)  CHAR(40) 

I N I T ( • BUDGET  *. 

lx  = o: 

NJFN  = 30; 

ASECODE 1 = • XXXXXXX • \ 

ALLOCATE  PS (NSAR Y ) . PR ( NR ARY > J 
BEGIN! 

DCL  DST*  CHAR (6) ! 

DCL  NDYPM (12)  FIXED  DLC(5*2)  INI T ( 3 1 . *28. • 3 1 • » 30. ♦ 31 . * 30 . * 
31. *31. .30. *31  . .30. .31  ) ; 

DSTR  = DATE; 

CAL_DATE  = (DEC(SUBSTk(DSTR.1.2))-76)*I2 

♦ DEC (SUhSTR (DSTR.3.2) > -.99 

♦ DEC (SUbSTR (DSTR. 5. 2) ♦ 5 . 2 > /NDYPM < DEC < SUBSTR < DSTR » 3. 2 ) ) ) * 

End; 
ns  = o; 


/<*  UPDATING  FILE  */ 

/•  »**•«  »»*•«  */ 

/*  OCFIlE(I)  = sequential  */ 

/*  OCF I lE  ( 2 ) = DIRECT  <*/ 

/•  •«»««  «««««  •/ 

io  = n 


OPEN  FILE (SCRATCH)  OUTPUT ! 

OPEN  FIlE(DIREC)  SEQUENTIAL  UPDATE  * 

LI  = o; 

PUT  EDITCHOR  MANY  SYSTEMS  DO  YOU  RANT  TO  SEE?1) 
(COL ( 1 ) .A)  ; 

PUT  EDIT ( ‘ENTER*  ) (C0L(3).A)1 
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IF  PROMPT  = *Y»  THEN  PUT  EOIT(*A  - ALL  * * 

•S  - SUBSET  OF  ALL*  • 

* N - NONt  • ) 

(COL (S> .A) t 
PUT  Sk IP  (?)  I 

GET  EOIT(ANS)  (COL < 1 > »A<80) M 
CALL  tR_PAGEl 

IF  ANS  * * A • A JENNY?  = *C«  THEN  001 

PUT  EDIT ( *00  YOU  WANT  ALL  SYSTEMS  ON  ONE  REPORT  ?*) 

( COL ( 1 ) • A ) I PUT  SK I P ( ? ) l 

GET  EOIT(NCROSS)  ( COl ( 1 > • A ( 1 ) ) I 

END  ( 

IF  ANS  s * N * I ANS  = 'NONt*  THEN  GO  TO  LAB? I 
PUT  EOITCENTEH  OFFICt  PREPARING  REPORTS*) 

(COL (I ) . A) » 

PUT  SKIPl?)  ) 

GET  EOIT(AOENCY)  (COL ( 1 ) * A (20) ) I 
IF  JENNY4  = * M * THEN  UO; 

PUT  EDIT ( ' DO  YOU  WANT  THE  MAXIMUM  LINES  PER  PAGE  TO  BE  30*) 

(COL ( I ) .A) J PUT  SK I P ( 2 ) ; 

GET  EDIT(NSANS)  ( COl < 1 ) • A ( 1 ) M 
IF  NS  ANS  -»=  • Y • THEN  CALL  CHG.MAX) 

END  I 

CHG_M A x :PHOC  * 

ON  CONVERSION  BEGIN? 

PUT  EDIT (‘ENTER  AGAIN  PlEASE.*» 

• BE  S0Rt  IT  IS  A NOMbLR.*) 

(COL ( 1 ) • A ) I PUT  SK IP  (2)  J 
REVERT  CONVERSION) 

GO  TO  J0A3A ; 

End; 

JBA3a:P0T  EO I T ( • ENT tR  NEw  MAXIMUM  NJMBER  OF  LINES  PER  PAGES* 
(COL ( 1 ) » A ) ; PUT  SK I P ( 2 ) ; 

GET  EDIT (NJEN)  ( COL ( 1 ) « F ( 2 * 0 ) ) < 

IF  NJEN  > 30  Then  do;  Put  EDIT(*  maximum  LINES  PER  PAGE  IS  30*) 
(COL ( 1 ) .A) J PUT  SK 1P(2) I 
NJ6N  = 30; 

END 

return; 

END  Chg_hax; 

if  ans  = * a * then  call  ja; 

IF  APLICOOC  = * N • THEN  GO  TO  L AB2 1 

ja  :proc; 

PUT  EDIT;*  ENTER  APPLICATION  OF  INTEREST*) 

(COL ( 1 ) ♦ A)  I 

IF  PROMPT  s * Y * I PROMPT  1 * *Y«  THEN  DO) 

IF  JENNY l = *P*  THFN 
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EDIT ( 'A  - 


•B  - BUDGET • » • E - PROJECT  ENGINEER*. 


•H  - PROJECT  MANAGER*. *0  - 104  REPORT*. 

•P  - PROCUREMENT* , *Q  - PRODUCT  ASSURANCE* » 

•R  - RECAP'. *S  - PROGNAM  SUMMARY*. *T  - TEST».*N  - NONE*) 

(COL (S) .A) * 

IF  JENNY  1 = • R • THEN 

PUT  EDI T ( • A - ALL'.'C  - COMPTROLLER *.* B - PLANS  l ANALYSIS*. 
•P  - PROCUREMENT* . *E  - DEVELOPMENT  & ENGINEERING*. 

* F - ASTIO*.*T  - TR AOOC ' ♦ * S - TECOM*. 

' 0 - PRODUCT  ASSURANCE *N  - NONE*) 

(COL (5) .A) ) 

End; 

PUT  SKIP (d) 1 

GET  EDIT (APLIC0DE2)  ( COl < 1 ) . A ( 1 2 ) ) * 

LSTR  = INDEX(APLIC0DE2. • •)  - 15 
APLICODE  = SUBSTR ( APL IC0DE2 ♦ 1 »LSTR ) ) 

IF  APLICODE  = ' N • THEN  GO  TO  LAB JBA ) 

IF  INDEX  (APLICODE.  • A*  ) -.=  0 THEN  DO) 

APLICODE  = 'A*? 

GO  TO  LAB3? 

END) 

IF  LENGTh(APLICODE)  = 1 & JENNY  1 -=  *P*  THEN  DOU 
PUT  ED  I T ( * DO  YOU  WANT  A STANDARD  TITLE?*) 

(COL  < 1 ) . A)  ) 

IF  PROMPT  = ' Y ' I PROMPT  1 = • Y • THEN 


PUT  EDIT ( • Y - YES • » • N - NO* ) 

(COL (S) . A) J 
PUT  SK  IP (2)  5 

GET  EDIT(STITLE)  < COL ( 1 > . A ( 1 ) ) ) 

IF  STITLt  = ' Y * THEN  DO) 

I T I T = INDEX ( 'bEHOPORsT i .APLICODE) I 
IF  ITIT  = 0 THEN  GO  TO  LAB3I 
T_SEND  = TARHAY ( ITIT) J 
GO  TO  LA6JBA) 


END) 

END) 

LAB3:  PUT  EDIT ( • ENTER  REP 
PUT  SKIP (2) 1 
GET  EDI T ( T_SEND ) ( COL ( 1 ) . A ( 40 ) ) ) 

LABJBA : ) 

CALL  ER_P AGE  1 
END  JA) 

ON  ENDFILE  (DIREC)  BEGIN) 

REVERT  ENDFIlE (SCRATCH) ) 

IF  NS  > 0 THEN  GO  TO  XX) 

ELSE) 

IF  IX  = 1 THEN  GO  TO  LAR2) 


ENTER  REPORT  TITLE*)  (COL(l).A)) 


ELSE  PUT  EDITl'NO  OATA  PREPARED  FOR  REPORTS')  (COL(2).A)l 
PUT  SK IP (2) t 
60  TO  L Ab2 1 
END) 

ON  KEY(DIREC)  b£G I N 5 
IF  ONCOOt  = 51  THEN  DO* 

PUT  EDI T l A SEC ODE » • RECOND  NOT  FOUND') 

(COL  < 1 ) .A. A) ) 

IF  ANS  = 'A*  I ANS  = 'ALL'  THEN  60  TO  LAB2) 

PUT  SKIP (2) t 
60  TO  LAbO (0) ) 

END  l 
END) 

LABO ( 0 ) ) IF  ANS  = »A'  I ANS  * 'ALL'  THEN  DO) 

Ll  = Ll  ♦ 1 * 

asecooe  = Char i l i > n 'oooo*; 

60  TO  L Ab*  ) 

EN.0  I 

PUT  EDI T ( 'ENTER  SYSTEM  CODE  •)  (COL(l).A)) 

IF  PROMPT  = • Y » I PROMPT  1 a »Y*  THEN 
PUT  EDI T ( • XXX  - SYSTEM  CODE'. 

(COL (5)  • A ) ) 

ELSE  PUT  SKIP (2)  ) 

PUT  SKIP (2) J 

6ET  EDIT l ASECUOE)  ( COL ( 1 ) . A ( 7 ) ) ) 

IF  ASECODE 1 = ASECODE  I ASEC0DE1  = 'XXXXXXX*  THEN  CALL  JA) 
IF  ASECuDt  = • N ' I APlICOOE  * *N*  THEN  60  TO  LAB2 1 
LAB*:  ASECODEl  = ASECODE) 

ASECODE  = SUBSTR(ASECuDE»l»3)  I I '0000') 

ALLOCATE  CARD  StT (P) ) 

READ  FILE(OIREC)  INTO(CARO)  KEY (ASECODE) ) 

NS  = 0) 

NR  = 0) 

DO  WHILE ( • 1 'b)  ) 

NCRS: ALLOCATE  LLINE  SET(PP)) 

READ  FIlE(DIREC)  INTO(LLINE)  Kt YTO ( ASECODE ) I 
IF  SUBSTR (ASECODE.*.*)  = *0000*  THEN  DO) 

IF  NCHOSS  -=  • Y ' THEN  60  TO  XX) 

ELSE  DO) 

FREE  LLINE) 

60  TO  NCkS) 

END) 

END) 

ELSE  ) 

IF  APLIU'UE  a * A • | 

( INDEX (SURSTR(LLINE.R. 11 ) .APLICODE)  « 0 i JENNY3  « 'N*>  I 
( INDEX (SUbSTR (LLINE. V.LSTR) .APLICODE)  -*  0 & JENNY3  » 'P') 
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then  LOOP APl * 00* 

IF  SUBSTR (LLINE . 1 13. 1 ) = *S*  THEN  DO* 

IF  LTYPE  = 'L'  THEN  00* 

Q = PPJ 

IF  TYPEJYUMHER  > o THtN  00  JBA3  = 1 TO  TYPE  NUMBER* 
IF  STEP_DATES ( JBA3)  >=  LL IM I T fc, 

STEP_DATES<JBA3)  <=  ULImIT  THEN  GO  TO  NOX* 

end; 

ELSE  DO* 

NTYNU  = - TYPE.NUmBER* 

DO  J0A3  = 1 TO  7 BY  3 WHILE (NTYNU* 3 > JBA3)» 

IF  (STEP_OATES( J8A3) <=LL1MIT  h 
STEP_D A T ES ( oB A3* 1)>=UlImIT)  I 
(STEP.DATES (J0A3J >=LL1MIT 
STEP_DATtS ( JBA3) <=ULIMIT) | 

(STEP_DATES ( JbA3* 1 ) >=LLIMIT 
STEP_OATES ( JBA3*1 ) <=ULIm1T) 
thin  go  to  nox; 
end* 

END* 

oo ; 

FREE  LLINE* 

GO  TO  NOM  * 

END* 

END* 

NOX  : * 

NS  - NS  ♦ 1 * 

IF  NS  > NS  AH  Y T>itN 
CALL  TBIG* 
psjnS)  = pp; 

END* 

ELSE  UO* 

nr  = nr  ♦ l * 

IF  NH  > NS AH Y THEN 
CALL  TRIG* 

PR(NR)  = PPJ 
ENO* 

eno  loopapl; 

ELSE  FREE  LLINE* 
nox l : ; 

Eno* 

XX:  IF  HOD  < NS  * N JEN ) -=  0 THEN  NSPAGES  = 'S/NJEN  *1* 
ELSE  NSPAGES  = NS/NJENJ 

IF  MOO(NH.b)  -c  0 THEN  NRPAGES  = NR/6  ♦ 1* 

ELSE  NPPAGES  = nh/6* 

IF  NRPAGES  > NSPAGES  THEN  NNPAGES  = NRPAGES* 

ELSE.  NNPAGES  = NSPAGES* 
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FPEE  LLINE; 

/*  PUT  SCRATCH  EVERY  THING  EXCEPT  OVL  STP  NO  */ 

* /#  •»«««  «««««  */ 

IF  ULIMIT  > 999.00  THtN  DO; 

styr  = st_yr; 

NOYR  = NO_YR! 

end; 

PUT  FILE (bCRATCrt)  EDI T ( T_SEND.CA| DATE . REF _DT . STYR tNOYR) 

( COL ( I)  * A » P • 999 V 99 • t(J)F(5»0)); 

PUT  FILE (SCRATCH)  EDIT ( AGENCY *MAJ OR _SYSTEM1 »MAJ0R_SYSTEM2) 
(COL ( 1 ) »At At  A)  ; 

PUT  FILE (SCRATCH)  ED  I T ( T I TlE 1 ♦ T I TLE2 1 ASJDF_DATE ) 

(COL (I) * A * A ♦ A ) ♦ 

IX  = i; 

ls?  = o; 

LR2  = o; 

IF  NNPAGES  = 0 THEN  PUT  FILE ( SCRATCH) 

EDIT <LS2»LS2.LS2M»NNPAGES*1) 

(C0L<1) ♦(A)F(S.O)); 

LOOPA:  DO  LA  = 1 TO  nnpages; 

LS3  = LS2  5 
LR3  = L«2{ 

LSI  = (LA-1)  * NJEN  ♦ i; 

LS2  = LSI  ♦ NJEN  - II 
IF  LS2  > NS  THEN  LS2  = NS? 

else; 

LR1  = (LA-1)  * b ♦ II 
LR2  = LR1  ♦ b; 

IF  lR2  > NR  THEN  LR2  = NR; 

else; 

IF  LA  = 1 THEN  DO! 

LS3  = LS2J 
LR3  = LR2 ! 

GO  TO  SS! 

end; 

LS3  = LS2  - LS3! 

LR3  = LR2  - LR3 ; 

SS: ; 

PUT  FILE (SCRATCH)  ED  I T ( LS3 »LR3 . L A . NNPAGES ) 

(COL ( 1 ) ♦ (4>F (5*0) ) ! 

LOOPS:  DO  LS  = LSI  TO  LS2 ! 

0 = PS (LS) ; 

/*  PUT  DVL  STP  IN  FILt  */ 

LABO ( 1 ) : /*  DEVEL  STEP  */ 

NNNN  = TYPE.NUMBER; 

NNN  = ABS (NNNN) ! 

IF  NNNN  < 0 THEN  NN  = NNN*3 ! 
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ELSE  NN  = NNN5 

PUT  FILE (SCRATCH)  EO I T ( NNNN  » T I TlE ♦ 

( STEP_D ATES (III)  DO  111=1  TO  NN) ) 

(COL  (1)  » F (2*0)  » A » (NN) P*999V99' > I 
FREE  DEVEL_STEH; 

END  LOOPS; 

loopr:  do  lr  = lr i to  lr2 ; 

R = PR ( LW ) • 

/*  PUT  REMARK  IN  FILE  */ 

PUT  FILE (SCRATCH)  ED  I T ( REMARK ) ( COL ( 1 ) . A ( 72) ) I 

FREE  remarks; 
end  loopr; 
end  loopa; 

PUT  EDITCSYSTEM  • .SUBSTR ( ASECODE1 . 1 .3) » • IS  READY.*) 
(COL ( 1 ) .A, A. A) ; 

put  skip u) ; 

IX  = 1 ; 

FREE  card; 

IF  NCROSS  -=  • Y * THEN  GO  TO  LAB0(0>! 

else; 

LAB2;  ; 

CLOSE  FILE (SCRATCH) ( 

CLOSE  FILE (DIREC)  ; 


/«  iMMMM* 

*/ 

rftukn; 

«»««« 

*/ 

ER_P AGE : PRuC  ; 

CALL  NEkPAG; 

call  tsend; 
return; 

END  ER_PAGE; 

TBIG: PROC : 

PUT  EDI T ( • THE  report  is  LIMITED  to  *.nsary. 

* development  steps  and  *.nary. 

* PEMASKS.*.*  YOU  HAVt  WH 1 T TEN  * . NS » 

• development  steps  and  *.nr» 

• REMAHKS  AND  ARt  NOT  FINISHED.*) 

(col  (i)»m(A.F(B«0))); 

PUT  EDITCOO  YOU  WANT  To  SEE  THE  REPORTS  *♦ 
♦AS  WRITTEN  OR  THY  AGAIN?*)  ( COL  ( 1 > * A » A ) I 
PUT  Sk IP (2) ; 

IF  PROMPT  = • Y » I PROMPT!  a *Y*  THEN 
PUT  EDIT ( ‘ENTER* t »P  - PARTIAL  REPORT*. 

•Q  - OU IT*) 

( COL ( 1 ) « A « COL ( b ) .A) ; 

GET  EDIT  ( P(J ) (COL  ( 1 > »A<  1 ) ) l 
FREE  LLINE; 
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IF  PQ  = »P»  T Ht N GO  TO  XX? 
IX  = 0 1 
GO  TO  LAb?» 

end  this; 

END  PEPOKTS5 
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SSL  IP : PROC (ASEC0DE)  ; 

DCL  LET  TER  1 CHAR(26)  IN  I T ( * ABCDEFGHI JKLMNOPQRSTUVWXYZ • ) » 

DCL  SOATE  FIXED  DEC(b*2)l 

DCL  FDATE  ENTRY  (CHAR  (9)  .FIXED  DEC  ( 5 * 2 ) » F I XED  BIN(15)M 
DCL  XDATE  CHAR (9) ? 

DCL  PROMPT  CHAR(l)  EXTERNAL l 
DCL  PROMPT  1 CHAR ( 1 ) J 

DCL  ( JENNY1 ♦ JENNY2, JENNY3* JENNY4, JENNY5)  CHAR ( 1 ) EXTERNAL  I 
DCL  LLINE  CHAR ( 1 14)  ; 

DECLARE  1 DEVEI STEP  BASED ( 0 ) * 

2 DELETE_FLAG  HIT (8) * 

2 INFO* 

3 ASE_CODE  CHAR ( 7) . 

3 APLl_CODE  CHAR (II), 

3 TYPE.NUMHER  FIXED  0EC(2)» 

3 TITLE  CHAR (28) . 

3 STEP_DATES(9)  FIXED  DEC(5,2), 

3 COST  (A)  FIXED  DEC(5.2) » 

3 REST  CHAR (26) 5 
DCL  (10,101)  FIXED  DEC(5*0)? 

/*  «««*»  ««»««  #/ 

DECLARE  DIREC  FILE  RECORD  KEYED  ENV ( INDEXED  F ( 1 1 AO  * 1 1 4 ) ) J 

DCL  ASECODE  CHAR<7>  J 

DCL  ANS  CHAR ( 80 ) VARS 

DCL  APLICODE  CHAH-Ul)  VAR? 

DCL  MONTHS  FIXED  DEC ( b , 2 ) » ( ANSI ♦ ANS2* ANS3 ) CHAR < 1 ) * 

DCL  FILL  CHAR (5) S 
DCL  (NLABEL. 1 1 . IX, IY)  FIXED  BIN5 
DCL  TOUTPT  ENTRY (F I XED  R I N ( 3 1 ) ) I 
DCL  INITT  ENTRY (FIXED  0 1 N ( 3 1 > ) S 
ON  ENOFILE(DIREC)  HEGIN; 

PUT  EDITCEND  OF  MAIN  FILE*)  <C0L(1)»AM 
GO  TO  XX  0 * 

END  I 

PUT  EDI T ( • HOW  MANY  RECORDS  DO  YOU  WANT  TO  SLIP  ?•>  <C0L(1>*A)I 

IF  PROMPT  = • Y * I PR0MPT1  =*Y*  THEN 

PUT  ED  I T ( * A - ALL  DATES ( ST ARTASTOP > THAT  OCCUR  AFTER  DATE  X*, 
•S  - ONLY  STOP  DATES  THAT  OCCUR  AFTER  DATE  X*, 

•N  - NONE  * ) 

(COL (5) » A) 5 
PUT  SKIP (2) 5 

GET  ED  I T ( ANS  1 ) ( COL < 1 ) » A < 1 ) ) » 

IF  ANSI  = *S*  THEN  00» 

K1=2«K2=5J K4=b;K5*K7,x8=10; 

END  I 

ELSE  oo; 

Kl=l »K2=2;K4=4JK5=5;K7=7;K8=8I 
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END  t 

IF  ANS 1 = ' N • THEN  GO  TO  XX2t 

PUT  EDITCENTER  SLIP  REFERENCE  DATE  X')  (COL<l),A)t 

PUT  EDIT  ( •/_.* * /•)  ( COL  ( 1 ) * A ) i 

PUT  SKIP (2) ; 

CALL  reverse; 

GET  EDI  T ( ANS ) ( COL ( 1 ) » A ( 80 ) ) I 

GET  STRING (ANS)  EDITUDaTE)  ( X U ) ,P • 99A AAAA99 ' ) t 
CALL  FDATE < XDATE , SDATE , P ) » 

SDATE  = SDATE  - H 

PUT  EDI T ( • SHOULD  THE  SLIP  DEPEND  ON  APPLICATION  CODE  ?•)  <COL<l)»A> 
IF  PROMPT  = * Y ' I PROMPT1  = *Y*  THEN 

PUT  EDIT ( 'ENTER* . 'Y  - YfS'CN  - NO')  (C0L(1)«A«(2)  ( COL ( 5 ) * A ) ) I 
PUT  SKIP  (?) ; 

GET  EDITUNS2)  < COL  < 1 ) * A ( 1 ) ) t 
IF  ANS2  = 'N'  THEN  GO  to  XX1J 

PUT  EDITCENTER  APPLICATION  CODE  FOR  STEPS  TO  BE  SLIPPED')  (C0L(2)»< 

PUT  EDIT!'/ /»)  ( COL  1 1 ) * A ) « 

PUT  SKIP  (?)  ; 

CALL  reverse; 

GET  ED  I T ( ANS ) ( COL < 1 > * A ( bO ) ) ; 

IF  SUBSTR ( ANS. 1 * 1 ) = 'N*  THEN  GO  TO  XX2t 
LSTR  = INDEX (SUBSTR (ANS, 2. 1?) . • •)  - It 
APLICODE  = SUBSTR (ANS, 2, LSTR) t 

XXI  : PUT  EDITCENTER  NUMBER  OF  MONTHS  OF  SLIPPAGE', •/ /•) 

( COL ( I ) . A ) 5 
PUT  SKIP  (?)  t 

CALL  reverse; 

GET  EDIT(ANS)  < COL < 1 > » A ( 80 ) ) t 

GET  STRING(ANS)  EDIT(MOnTMS)  ( X ( 1 ) , F ( 6 , 2) ) I 

PUT  EOIT(MONTHS)  (COL(l) ,F(6,2) ) ; 

PUT  EDI T ( ' DO  WE  AGREE  ON  THE  NUMBER  OF  MONTHS  ?»)  (COL(I)»A)t 
PUT  SKIP  (2)  t 

GET  EDITIANS3)  ( COL ( 1 > • A ( 1 > ) $ 

IF  ANS3  = 'N'  THEN  GO  TO  XXlt 

if  ansi  = • a ' Then  n = -i ; 

ELSE  N = 0; 

Ll;  oo  i=  i to  ioooo; 
ii  = it 

READ  FILE(DIREC)  INTO(LLINE)  KE YTO ( ASECODE ) t 
IF  SUBSTR(ASEC0DE,4,4)  r.  *0000*  THEN  GO  TO  XXOt 
Q = ADDR (LLINE ) t 

IF  SUHSTR (LLINE, 1 13, 1 ) = 'S'  THEN  L2:DOt 
IF  ( ANS2  -=  fN')  ^ 

(( INDEX  (SUBSTR  (LLINE,  V,  1 1 ) , APLICODE)  -=0  8.  JENNY3  = 'N')  I 
(INDEX(SUBSTR(LLINE. 9, LSTR)  , APLICODE)  -.=  0 8.  JENNY3  = »P')) 

THEN  NAPLI  = It 
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ELSE  NAPLI  = 01 

IF  ANS2  = *N»  I NAPLI  •’*  0 THEN  L3JD0I 

IF  TYPE_NUMBEN  > 0 THtN  DO  K=  1 TO  TYPE  NUMBER  I 

IF  STEP_DATES(K)  >SDATE  THEN 

STEP_DATES(K)  = STEP.UATES (K ) ♦ MONTHSI 

END* 

IF  TYPE _ NUMREW  < 0 

THEN  DO  K s K1 tK2«K4*K5*K7 ♦ K 8 WHILE < TYPE_NUMBER  * 3<-K)l 

IF  STEP_DATES(K)  > SDATE  STEPJJATES  <K ) »=  0 THEN 

STEP_DATES (Ki  = STEP_OAT£S ( K ) ♦ MONTHSI 

ENDI 

END  LJI 

END  L2I 

REWRITE  FILE(DIREC)  FKOMtLLINEll 
END  L 1 1 

XXO:  PUT  EDIT  ( * SLIP  COMPLETED.*)  <COL<l).A)l 
PUT  SKIP  (?)  I 
XX2 1 RETURN  I 
END  SSLIPI 


» 

i 


9 


TYHEPT:  PROC  1 
OCL  P«_BY  ChAR(20) ! 

» OCL  CAL_DATE  CHAR(R)! 

OCL  ouhcki  chap ( bo  > van! 

OCL  ALOATEdO)  CHAR(9)! 

OCL  ANS  CHAR ( HO ) var! 

. OCL  MAJOH^SYSTEM  CHAR ( 32 ) * RPT I T CHAR<*0)« 

TITLE1  CHAH(A<*).  AS_OK_DATE  CHAR(IO)* 

CH  CHAP  U ) I 

OCL  (STEP_DATE.CUR_DT. DUMMY)  FIXED  DEC<5»2)* 

TYPE_NUMbEP  FIXED  DEC(2,0)! 

DCL  (NO_DVLS«NO_HMKS»NPG«NPG_OF_NPGS» It IltJtKKA)  FIXED  BINI 
OCL  SCRATCH  FILE  EN V ( F ( 80 ♦ BO ) ) * 

OPEN  FILE (SCWATCH)  INPUT! 

ALOATE  (10)  = (9)  • • ! 

/•  *****  • ••«»  »/ 

ON  ENDFIlE (SCPATCH)  GU  TO  FINISH! 

DUMRD:  PHOC! 

NPG  = J! 

GET  FILE (SCRATCH)  EDIT ( NO_DVLS * NO_RMK S ) (COL ( 1 ) * (2) F (5*0) ) ! 

RETURN! 

END  DUMRD! 

NEXT:  GET  F IlE ( SCR A TCh ) E U I T ( HPT  I T ♦ CUR_DT ) (COL ( 1 ) * A ( AO ) *F ( 5. 2) ) ! 

GET  FILE (SCRATCH)  EDIT ( PR_RY » M A jOR_SYSTEM ) ( COL < 1 ) . A ( 20 ) . A ( 32) ) ! 

GET  FILE (SCRATCH)  EDIT (TITLEl*  AS_OF_DAT£ ) ( COL ( 1 ) * A ( 44 ) * A ( 1 0 ) ) ! 

GET  FILE (SCRATCH)  EDI T ( NO_DVLS, NO.RMKS* NPG*NPG_OF_NPGS) 

( COL ( 1 ) » (A)F(btO) ) ! 

PUT  SKIP  (2)  ! 

PUTHEAD:  PROCJ 
DUMMY  = CUR_DT  ♦ 1.0! 

CALL  WDATE (CA| DATE  » DUMMY ) ! 

PUT  EDIT ( ( * • DO  II  = 2 TO  72))  (COL(2)*72  A<1>>! 

PUT  EDIT ( • I • .RPTIT* • I • ) ( COL ( 1 > ♦ A ( 1 ) » X ( 20 ) » A* COL ( 73) . A ) ! 

PUT  EDIT ( • I • . ( »_*  DO  II  = 1 TO  71)*»|»)  ( SKIP ( 0 ) *COL ( 1 ) • A ( 1 ) • 

71  A ( 1 ) • A ( 1 ) ) ! 

PUT  EDIT ( • I • * * CURRENT  DATE : ♦ *CAl_DATE » 'PAGE*  » NPG*  * OF • » NPG_OF_NPGS . • 
(COL  (1)«A(I)»A*X(2)  • A « COL  ( 57  ) . A * X ( 1 ) *P  • Z9 »X(1)*A*X(1)  * P * Z9  * * COL  ( 73 

♦ A ( 1 ) ) ! 

PUT  EDI T ( • I * . ( DO  II  = 1 TO  7 1 ) * • I • ) ( SK IP ( 0 ) . COL ( 1 ) ♦ A ( 1 ) ♦ 71  A(l) 

A ( 1 ) > ! 

PUT  EDIT ( * I • . 'PREPARED  BY : » , PR_BY . • I • ) (COL ( 1 ) » A* A.A»COL (73) »A) ! 

PUT  EDIT (• I •» 'MAJOR  SYSTEM! « *MAJOR_SYSTEM* ♦ | « ) (COL ( 1 ) * A ( 1 ) . A.X ( 1 ) ♦ 

♦ COL  < 73 ) • A ( 1 ) ) ! 

PUT  EOIT (• I •« 'PROJECT  TITLE :'*TITLE1»'I»)  ( COL ( 1 > . A ( 1 > * A . X ( 1 ) . A* 

COL ( 73 ) . A > ! 

PUT  EDI T ( • I • * • AS  OF  DATE ! ' » AS_OF_OATE ♦ • I • > (COL ( l > * A ( 1 ) . A . X ( 1 ) ♦ A ♦ 

COL (73) .A) ! 
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PUT  EDIT<* I •« (*_•  DO  II  = 1 TO  71), *|')  (SKIP (0) .COL ( 1 > .A ( 1 ) .71  A ( 1 
A ( 1 > ) « 

PUT  EOIT ( • t * » *TASK/EVtNT* ♦ ♦ ST ART/EVENT « * ’STOP/EVENT**  » STATUS*  * • | • ) 

( COL ( 1 ) » A ( 1 ) .COL (10) * A » X ( 1 9 ) « A . X ( 2 ) « A . X ( A ) .A. COL (73) .A) I 
PUT  EOIT ( • I * » ( ‘DATE*  00  II  a 1 TO  2).»|») 

(COL (1) »A(1) . X ( AO ) • A . X ( 9 ) .A. COL ( 73) *A) » 

PUT  EDIT ( • I * ♦ * 

(*_*  00  II  * 1 TO  7 1 ) . * | « ) (COL(l).A(l) 

.71  A ( 1 ) . A ( 1 ) ) I 
END  PUTHEADI 

RPT : 00  J = 1 TO  NPG_OF_NPGS» 

IF  J > 1 THEN  CALL  DUMRDI 
CALL  PUTHEADI 

dvls;  oo  i = i to  no_ovls; 

GET  FILE (SCRATCH)  EDIT(aNS)  ( COL ( 1 ) . A ( 00 ) ) I 
PUT  EOIT ( • I • .1* • . ' «SUBSTR( ANS.3.28) ) 

(COL  (1).A(1).X(2)*F(2)*A*XU).A)I 

GET  STRING ( ANS ) EDI T ( TYPE_NUMBER)  (F(2,0))l 

IF  TYPE_NUMBER  > 0 THtN  001 

LES  DO  K = 1 TO  type_numberi 

GET  STRING(ANS)  EOIT ( STEP_DATE ) ( X < 30* ( K-i ) *5) ♦ F ( 5, 2) ) I 
IF  STEP_DATE  < 12.015  THEN  001 
ALDATE(K)  = » *1 
GO  TO  YYll 

end  i 

DUMMY  = STEP.OATE  ♦ 11 

IF  DUMMY  > 0 THEN  CALL  RDATE (ALDATE (K) .DUMMY) * 

YY1 : I 
ENO  LEI 

IF  TYPEJMUMBEH  >=  2 THEN  KK A = 2l 
ELSE  KK  A = II 

PUT  EDIT ( (ALDATE (K)  DO  K = 1 TO  KKA) » • I • ) 

(COL (36) . (KKA)  ( X ( A ) ♦ A ) * COL  1 73) . A ( 1 ) ) I 
00  KKK  = 3 TO  TYPE_NUMBER  BY  2 1 
IF  KKK  >=  TYPE JVUM8EK  THEN  KKA  = 1 I 
ELSE  KKA  = 21 

PUT  EDIT (* I (ALDATE (KK.KKK-1 ) DO  KK  = 1 TO  KKA).»I») 

(COL (1) .A. COL (AO) • (KKA) (A.X (A) ) .COL (73) . A ( 1 ) ) I 

END  I 

ENDI 

ELSE  IC  = II 

NUMBER  a -2»TYPE_NUMBtR  ♦ II 
IF  TYPE_NUMBER  < 0 THEN  DO! 

LSI  00  KK  a 1.2.A.5.7.8I 

GET  STRING(ANS)  EDI T (STEPjOATE)  ( X ( 30* < KK-1 ) *5) .F (5.2 ) ) I 
IC  * IC  ♦ II 

IF  STEPJ)ATE  < 12.015  THEN  DOI 


ALOATE ( KK ) * • •! 

60  TO  YY2I 
END* 

DUMMY  * STEP.OATE  ♦ It 

IF  DUMMY  > 0 THEN  CALL  R0ATE ( ALOATE (KK ) .DUMMY ) I 
ELSE  60  TO  YYI 

IF  NUMBER  <*  IC  THEN  60  TO  YYI 
YY2»  I 
END  LSI 
YY!  I 

PUT  EOI  T ( ALOATE  (l)tALUATE(3)  tSUBSTR  ( ANS»A3»3)  * • I * ) 

(COL  (AO)  *A.X(A>  »A.X(6)  .A  (3)  , COL  (73)  .AUDI 

PUT  EDI T ( ( • I ALOATE (K) ,ALBATE(K*1) • SUBSTR ( ANS. 33* (K* I) *5* 3) »»| • 

DO  K = A TO  IC  BY  3)  ) 

( COL ( 1 > ♦ A. COL (AO) »AtX (A) * A»X (6) »A (3) . COL ( 73) « A ( 1 ) ) I 
ENDI 

PUT  SK I P ( 2) I 
END  DVLSI 

PUT  EDI T ( • I * » ( 1 _•  DO  II  = 1 TO  Tl)*»|»)  (COL(l)t  A(l)t7l  A(1)*A(1>) 
CH  = • S • I 

RMKS:  DO  I * 1 TO  N0_HMkSI 

6ET  FILE (SCRATCH)  EOIT(aNS)  (COL ( 1 ) * A ( 00 ) ) I 

PUT  EDIT  (ANS)  (COH  2 ) ♦ A < 80 ))  l 

END  RMKS I 

PUT  SKIP(A) I 

END  RPT I 

60  TO  NEXT! 

FINISH: I 
RETURNI 
END  TYREPTI 


UPDATE:  PROC* 

DCL  ASECOOE1  CHAH (?)  * 

DCL  ( JENNY  1 » JENNY2. JENNY3* JENNY4* JENNY5)  CHAR ( 1 ) EXTERNAL  t 

DCL  FIN  CHAR(l)  I 

DCL  PROMPT  CHAR ( 1 ) EXTERNAL* 

DCL  (L A82 ( 0 1 8 ) »LAB3(0J4) » L AB6 ( 0 * A I ) LABEL* 

DCL  PROMPT  1 CHAR ( 1 ) * 

DCL  LINE  CHAR(IU)  * 

DCL  1 HCAHO  BASEO < S ) . 

2 DFLA6  BIT (8) . 

2 REST  CHAR (113)* 

DECLARE  1 CARD  BASED (P ) , 

2 DELE  TE.FLAG  BIT  (8) t 
2 ASE.CODE  CHAR ( 7 ) » 

2 apli_code  CHAR (11)  . 

2 MAJ0R_SYSTEM1  CHAH (12), 

2 MAJ0R_SYSTEM2  CHAH (20), 

2 TITLE1  CHAR (20 ) . 

2 TITLE2  CHAR ( 24 ) , 

2 AS.OF.DATE  CHAR(IO)  , 

2 NO.DVL.STPS  FIXED  DEC (5,0) , 

2 NO.REMARKS  FIXEO  UEC(S.O). 

2 FILE.END  FIXED  OEC<5.0>* 

DECLARE  1 DEVEL.STEP  BASEO (Q) » 

2 DELETE.FLAG  BIT (8) , 

2 INFO. 

3 ASE.CODE  CHAR (7), 

3 APLl.COOE  CHAR  (11)  , 

3 TYPE.NUMBER  FIXED  0EG(2), 

3 TITLE  CHAR (28) , 

3 STEP.DATES(R)  FIXED  DEC(5,2), 

3 COST ( 4 ) FIXED  DEC15.2). 

3 REST  CHAR (2b) * 

DECLARE  1 REMARKS  RASED  (R), 

2 DELETE.FLAG  BIT ( 8 ) , 

? ASE.CODE  CHAR (7), 

2 APL I. CODE  CHAR (11) , 

2 REMARK  CHAR (80 ) , 

2 REST  CHARU5)  * 

DCL  (10.101)  FIXED  DEC (5.0)1 
/♦  •••••  *****  */ 

DECLARE  DIREC  FILE  RECORD  KEYED  ENV ( INDEXED  F ( 1 140 • 1 U> 1 * 
DCL  CHG  FILE  ENV ( F ( 380 . 38 ) ) * 

DCL  ACHG  FILE  STREAM  ENV <F ( 1 140 . 1 1* ) ) * 

DCL  ASECODE  CHAR ( 7 ) * 

DCL  ANS  CHAR ( 80 ) VAR* 

DCL  APLICODE  CHAR(ll)  VaR* 
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OCL  APLICODE2  CHAR<12)  VAH; 

OCL  <UDTYPE»CTYPE»LTYPE)  CHAR < 1 ) I 
DCL  CTYPEA  CHAR (2)  ; 

OCL  LI  PIC»999«»L2  PIC'9999'I 
OCL  FILL  CHAR  (5) ? 

DCL  ( NL ABEL *II*IXtIY)  FIXED  BIN; 
DCL  TOUTPT  ENTRY ( F I XED  BIN(31))» 
OCL  INITT  ENT RY (FIXED  BIN (31 ) > I 
DCL  TEMP_FLAG  BIT  (8)  ; 

OCL  CUR_DATE  CHAR (6) » 

DCL  1 CHGN— RECORD  * 

2 ACODE  CHAR (3) , 

2 CTIT1  CHAR (28) ♦ 

2 DT  CHAR (6) » 

2 TC  CHAR  ( 1 ) ? 

IOUP  = o; 

/»  »»»»«  »«»«»  »/ 

P = ADDR (LINE) i 
Q = P! 

R = PI 
S = PI 


/•  *****  »»»»»  */ 

CUR_DATE  = DATE! 

/*  UPDATING  FILE  */ 

/*  »«»»*  ««»««  */ 

/*  OCFILE(I)  =>  SEQUENTIAL  */ 
/*  OCF ILE ( 2 ) =>  DIRECT  */ 

/*  »»»»•  ««*««  */ 


10  = 21 

CALL  OCFILE(IO) » 

ON  ENDFILE (DIREC)  BEGIN; 

PUT  EDI  T ( • ENO  OF  MAIN  FILE')  (C0L(1>*AM 
PUT  SKIP (2) ; 

GO  TO  L AB2 ( I ) I 

end; 

ON  KEY (DIREC ) BEGIN? 

IF  ONCODE  = 51  THEN  DO; 

PUT  EDIT (ASECODE* 'RECORD  NOT  FOUND') 

(COL ( 1 ) t A ♦ A ) ; 
put  skip (2) ; 

GO  TO  LAB2  <1)1 

end; 

IF  ONCODE  = 52  THEN  DU  I 

PUT  EOIT ( 'DUPLICATE  RtCORB * * ASECODE ) 

(COL ( 1 ) » A t A ) I 
PUT  SKIP (2)  I 
GO  TO  L AB2 ( I ) I 
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END* 

END* 

CALL  ER_PAGE  * 

LAB100:  PUT  EDIT  ('ENTER  EDIT  CODE')  <COL<l)*A>5 

IF  PROMPT  = • V ' I PROMPT  1 a • Y • THEN 

PUT  EDI T ( • A - ADD't'D  - DELETE', 'C  - CHANGE'* 

*S  - SL IP ' * ' L - LIST', 

•N  - NONE') 

(COL (5) , A) * 

PUT  SKIP (2) * 

CTYPE  = 'O'* 

GET  EDIT (UDTYPE, FILL)  ( COL ( 1 ) , A ( 1 ) , A ( 5 ) ) I 
CALL  ER_PAGE* 

FIN  = 'O'  * 

PROMPT1  = ' N ' * 

ICOUNT  = 1* 

I = INDEX ( 'AOCSSLFN* .UDTYPE) * 

/*  SET  FILE  */ 

IF  ( I >3)  S ( I < 7 ) THEN  101  = 15 
ELSE  101  = 2* 

IF  I = A THEN  101  = A* 

ELSE* 

IF  10  -=  101  THEN  CALL  OCFILE(IOI)* 

10  = 101* 

/*  */ 

GO  TO  LAB2 (II* 

L AB2 ( 0 ) : /*  ILLEGAL  EDIT  CODE  */ 

PUT  EDIT  l 'EDIT  CODE  NOT  FOUND')  (C0L(1)*AM 
PUT  SK I P ( 2 ) » 

PR0MPT1  = 'Y'S 
GO  TO  LA6100* 

L AB2 ( 1 ) : /*  ADD  A RECORD  */ 

TC  = 'A*  * 

CARD.DELETE_FLAG  = ( 8 ) ' 0 ' 8 * 

FASE:PUT  EDITCENTER  HECORD  CODE*)  (COL(ll.A)* 
PUT  SKIP (2) * 

BEGIN* 

ON  CONVERSION  BEGIN* 

PUT  EDITC  RECORD  CODE  4 AS  IN  ERROR*. 

» IT  MUST  BE  7 DIGITS.') 

(COL (2) ♦ A ) * 

PUT  SKIP (2) * 

GO  TO  FASE* 

END* 

GETEDIT(ANS)  (COL ( 1 ) »A (88) ) * 

IF  SUBSTR  ( ANS,  1,1)  =»S*  (.  CTYPE  = 'S' 

THEN  CALL  SIGCHGN* 
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else; 

IF  SUBSTR ( ANS.  1 . 1 ) = *N*  I SUBSTR ( ANS , 1 , 1 ) = *Y* 

THEN  GO  TO  LAB100; 

GET  STHING(ANS)  ED  I T ( ASECODE ) ( P • 9999999 •) I 

IF  ASECODE  < *0010000*  THEN  DO; 

PUT  ED  I T ( » YOUR  RECORD  CODE  MUST  BE  GREATER  THAN** 

* ooioooo  • > (col ( i ) *a*a)  ; 

PUT  SK I P ( ? ) ; 

GO  TO  LAB2 ( 11  ; 

end; 
end; 

CARD • ASE_CODE  = ASECOUE; 

IF  IDUP  = 1 THEN  GO  TO  NDUP? 

IF  SUBSTR ( ASECOOE.4,4)  = *0000*  THEN  DO; 
ii  = i; 

CTYPE  = *h*; 

end; 

else  do; 

LABI  1 : PUT  EDIT(*ENTEK  ADDITION  TYPE*)  (COL(l)tA); 

IF  PROMPT  = • Y • I PROMPT1  = *Y*  THEN 
PUT  ED  I T ( 

* D - SYSTEM  DEVELOPMENT  STEP'* 

* R - SYSTEM  REMARK*. 

* N - NONE*) 

(COL (5) * A ) ; 

PUT  SKIP (2)  ; 

PROMPT1  = *N»; 

GET  EDIT (CTYPE. FILL)  ( COL ( 1 ) * A ( 1 ) * A ( 5) ) ; 
icount  = o; 

IF  CTYPE  = • N ' THEN  GO  TO  LABIOO; 

II  = INDEX ( *HDRN* .CTYPE)  ; 

IF  II  = 0 THEN  DO; 

PROMPT  1 = • Y * ; 

GO  TO  LAB  1 1 ; 

end; 

end;  ft 

NL  ABEL  = in 
CALL  er.page; 

CALL  ADDD (NLABEL.LINE) ; 

IDUP  = H 

NDUP ; MR  I TE  FILE(DIREC)  FROM (LINE)  KEYFROM ( ASECODE) I 
IDUP  = o; 

CTYPE  = SUBSTW(LINE. 113,1)  ; 

IF  CTYPE  = *S*  8.  SUBSTH  ( ASECODE. 4. 4)  -=  '0000*  THEN 
PUT  FIlE(ACHG)  EDIT (HCARD)  (B(8).A); 

IF  PROMPT  = *Y*  THEN 

PUT  ED  I T < ' ADDITION  COMPLETE.  READY  FOR  NEXT  ADDITION.*) 
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* 


(COL < 1 ) . A)  ) 

PUT  SKIP  12)  ; 

TC  = 'AM 
GO  TO  LAB2  (1M 

LAB2I2):  /*  DELETE  A RECORD  •/ 

TC  = *D'I 

PUT  EDIT ( * ENTER  RECORD  CODE*)  (COL(l).A)l 
PUT  SKIP (2) ( 

GET  EDIT(ANS)  (COL( 1 ) »A(0O) ) » 

IF  SUBSTR(ANS.l.l)  = *S*  i.  CTYPE  = *S*  THEN  CALL  SIGCH&N) 
IF  SUBSTR < ANS, 1 . 1 ) = *N*  I SUBSTR ( ANS » 1 . 1 1 * »Y* 

THEN  GO  TO  LABIOO? 

ASECODE  = SUBSTR (ANS. 1 .7)  5 
IF  ASECODE  = • 0010000 ' THEN  DO? 

PUT  ED  I T ( * YOU  CANNOT  DELETE  RECORD  0010000  *. 

•YOU  CAN  CHANGE  RECORD  0010000  WITH  *» 

•THE  CHANGE  COMMAND.*. 

•I  WILL  ASSUME  YOU  WANT  TO  DELETE  •♦ 

•SOME  OTHER  RECORD. • ) 

( COL ( 1 ) .A.  (2)  (COL(l)  *A.A)  ) * 

GO  TO  LAB2(21  I 
END) 

LABDX:  RE  AO  FILE(DIREC)  INTO(LINE)  KEY ( ASECODE ) I 
DELETE  FILE(DIREC)  KE Y < aSECODE > ) 

IF  PROMPT  = *Y»  THEN 

PUT  EDITC  DELETION  COMPLETE.  READY  FOR  NEXT  DELETION.*) 
(COL ( 1 ) . A)  ; 

IF  SUBSTR (ASECODE .4. A)  = *0000*  THEN  GO  TO  LAB2(2)» 

CTYPE  = SUBSTR(lINE.IIJ.I) * 

GO  TO  LAB2 (2) ; 

L AB2 ( 3 ) : /<*  CHANGE  A RECORD  */ 

TC  = *C • ; 

PUT  EDITCENTER  RECORD  CODE  ♦ ) ( COL  ( 1 J * A ) J 

PUT  SKIP  (2)  I 

GET  EDIT (ASECODE)  ( COL ( 1 ) ♦ A l 7 ) ) » 

IF  ASECODE  = ' N * I AStCODE  » *S'  THEN  GC  TO  LAB100I 
READ  FIlE(PIREC)  INTO(LINE)  KE Y ( ASECODE ) » 

II  = 01 

IF  SUBSTR (ASECODE. A. 4)  = *0000*  THEN  II  = 1) 

ELSE  IF  SUBSTR (LINE. 1 13, 1 ) » *S*  THEN  II  s 21 
IF  SUBSTR(LINE. 113.1)  = *R»  TMEN  II  = 31 
GO  TO  L AB3 ( 1 1 ) i 
LAB3I0):  PROMPT1  = *Y*I 

GO  TO  LABIOO) 

L AB3 ( l ) : /*  Change  heading  information  */ 

PUT  EDIT ( * ENTER  HEADING  ITEM  TO  BE  CHANGED*) 

(COL < 1 > .AM 
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IF  PROMPT  = * Y • I PROMPT  1 = *Y«  THEN 
PUT  EDITCM  - AIRCRAFT  SYSTEM*, 

•T  - SYSTEM  TITLE** 

•D  - AS  OF  DATE*, 

•E  - START  YEAR  FOR  REPORT*, 

•R  - NUMBER  OF  YEARS  IN  REPORT*, 

•A  - APPLICATION  CODE*  , 

•N  - NONE* ) 

(COL (5) *A>  ; 

PUT  SKIP (2) J 

GET  EDIT (CTYPE, FILL)  ( COL ( 1 ) , A ( 1 ) ♦ A ( 5 ) ) I 
PROMPT  1 = *N*) 

IF  CTYPE  = • N * THEN  GO  TO  LAB3(4)) 

NLABEL  = INDEX(*MTDERAN*, CTYPE) J 
IF  NLABEL  = 0 THEN  00) 

PROMPT  1 = *Y») 

GO  TO  LAB3 (11) 

END) 

CALL  CHANGE (NLABEL, LINE, FIN) ) 

IF  FIN  = • N • I FIN  = *S*  THEN  GO  TO  LAB3<4>) 

GO  TO  L AB3 ( 1 ) ) 

LAB3 (2) : /*  CHANGE  STEP  INFORMATION  */ 

CH_TY:PUT  EDIT(*ENTER  INFORMATION  TYPE  TO  BE  CHANGED*)  <C0L<1>*A> 
IF  PROMPT  = * Y • I PROMPT!  - *Y*  THEN  DO) 

PROMPT  1 = *N*; 

PUT  EO I T ( 

(COL (5) , A)  ) 

END) 

PUT  SKIP (2) ) 

GET  EDIT(ANS)  ( COL ( I ) , A ( 80 ) ) ) 

IF  SUBSTR (ANS, 1 , 1 ) = *N*  THEN  GO  TO  LAB3(4)) 

IF  INDEX  < • TDAE  * »SUBSTH ( ANS, 1 , I ) ) = 0 THEN  DO) 

PROMPT  1 = * Y * ) 

GO  TO  CH_TYI 
END) 

IF  SUBSTR ( ANS ,1,1)  = *A*  THEN  DO) 

NLABEL  = 6) 

CHG_EL : CALL  CHANGE ( NLABEL ,L INE , F I N) ) 

IF  FIN  = ♦ N • ( FIN  = *S*  THEN  GO  TO  LAB3<4)) 

GO  TO  LAB3 (2) ) 

END) 

IF  SUBSTR (ANS, I , 1 ) = *E*  THEN  DO) 

NLABEL  = 12) 

GO  TO  CHG_EL) 

END) 

IF  SUBSTR(ANS,1,1 ) = • T * THEN  IY  = 1) 

ELSE  IY  = 2) 
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IF  TYPE_NUMBER  < o THtN  IX  = 1* 

ELSE  IX  = 31 

NL ABEL  = b ♦ IX  ♦ IY* 

CALL  CHANGE < NL ABEL . L I NE . F IN ) I 

IF  FIN  = • N ' I FIN  = 'S'  THEN  GO  TO  LAB3(4)J 

GO  TO  L AB3 ( 2 ) * 

L AB3 (3) : /*  CHANGE  A RtMARK  */ 

PUT  EO I T ( 'ENTER  ITEM  TO  BE  CHANGED*) 

(COL ( 1 ) .A) I 

IF  PROMPT  = ' Y • I PROMPT  1 ® 'Y'  THEN 
PUT  EDI T ( ' R - REMARK  • . 

•A  - APPLICATION  COOE*  . 

'N  - NONE') 

(COL (5)  .A)  » 

PUT  SKIP (2)  I 

GET  EOIT(ANS)  ( COL < 1 ) . A ( 80 ) > * 

IF  SUBS  T R ( ANS  » 1 * 1 ) = *N*  THEN  GO  TO  LAB3<4>* 

ELSE  » 

IF  SUBSTR  < ANS « 1.1)  = 'A*  THEN  NLABEL  = 6* 

ELSE  NLABEL  ■=  1H 

CALL  CHANGE (NLABEL .LINE, F IN) » 

IF  FIN  = • N ' I FIN  = 'S'  THEN  GO  TO  LAB3(4)I 
GO  TO  LAB3(3) * 

L AB3 ( 4 ) : CHANGE  COMPLETE  «*/ 

TEMP.FLAG  = CAH0.DELE1E_FLAGI 
SIGCHGn:  procj 

OCL  CHG  FILE  ENV (F (380.38) ) ; 

PUT  EDIT ( 'WAS  THIS  A SIGNIFICANT  CHANGE  ?J ) 

(COL ( 1 ) ♦ A)  ; 

PUT  SK  TP ( ?) I 

GET  EOIT(ANS)  (COL < 1 ) .A (80) ) I 
IF  SUBSTR (ANS. 1 . 1 ) = »Y*  THEN  DO» 

ACODE  = SUBSTR (ASECODE. 1 .3) * 

CTIT1  = OEVEL.STEP.TITLFI 

if  tc  = 's*  then  ctiti  = (28)*  *i 

DT  = CUR_DATE» 

PUT  FILE(CHG)  EOIT (CHGN_RECORO)  ( COL ( 1 > » ( 4 ) A > » 

end* 

END  SIGCHGN* 

REWRITE  FILE(DIREC)  F ROM ( L I NE ) KE Y ( ASECOOE ) » 

PUT  FIlE(ACHG)  EDIT(HCARD)  ( B ( 8 ) * A ) ( 

IF  PROMPT  = ' Y • THEN 

PUT  EDITC  CHANGE  COMPLETE.  READY  FOR  NEXT  CHANGE.') 
(COL ( 1 ) . A) J 
PUT  SKIP (2) * 

IF  FIN  = 'S'  THEN  CALL  SIGCHGN* 

else* 
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GO  TO  LAB? (31  ; 

LAB?<<*):»  /*  SLIP  A SCHEDULE  •/ 

PUT  EOITCENTER  SYSTEM  CODE  •)  <C0L(1)*AM 

PUT  SKIP  (?)  ; 

TC  = »S*  » 

GET  EDIT < ASECODE)  ( COL ( 1 ) » A ( 7 ) ) » 

IF  SUBSTR < ASECOOE. 1 ♦ 1 > = 'N'  THEN  GO  TO  LAB  I 0 0 I 

ASECODE  = SUBSTP  ( ASECOOEt  1 »3>  II  'OOOOM 

READ  FILE(DIREC)  INTO(LINt)  KEY(ASECODEM 

ASECODE 1 = ASECODE  1 

CALL  SSL  I P ( ASECODE ) f 

ASECODE  = ASECODE 1 1 

GO  TO  LAB100I 

LAB? ( 5 ) : I /*  COPY  A RtCORD  FROM  ONE  FILE  TO  ANOTHER  */ 

PUT  EDI T ( • COPY  DOES  NOT  WORK  IN  THIS  VERSION  OF  SCHEDULE') 
(COL (S) • A) » 

PUT  SKIP  (?)  ; 

PROMPT1  s • Y • J 
GO  TO  LABIOO* 

LAB? (6) :/*  LIST  A RECORD  OR  A NUMBER  OF  RECORDS  •/ 

PUT  EO I T ( 'ENTER  LIST  TYPE')  (COL(l)»A)l 
IF  PROMPT  = * Y • I PROMPT  1 c *Y*  THEN 
PUT  EDIT ( 'A  - SYSTEM  HEADING  RECORDS'* 

•S  - ALL  RECORDS  OF  SYSTEM  X'» 

•P  - SUBSET  OF  ALL  RECORDS  OF  SYSTEM  X'. 

•N  - NONE* ) (COL (5)  . A)  » 

PUT  SKIP  (?)  ; 

GET  EOIT (LTYPE.FILL)  ( COL ( 1 ) * A ( l ) * A ( 5) ) * 

PROMPT  1 = ' N • l 

IL  = INDEX ( 'ASPN* «LTYRE) J 

CALL  ER_PAGE( 

GO  TO  L AB6 ( IL) ( 

L AB6 ( 0 ) : /*  CODE  NOT  FOUND  */ 

PUT  EDIT (» INVALID  LIST  CODE')  < COL  < 1 > • A > < 

PUT  SKIP  (?)  I 
PROMPT  1 = • Y • l 
GO  TO  LAB? (6) ( 

LAB6 ( 1 ) : /*  LIST  ALL  SYSTEM  HEADING  RECORDS  •/ 

Ll  = o;  l?  = o; 

DO  WHILE ( • 1 *B) J 
Ll  = Ll  ♦ If 

ASECODE  = CHAR (Ll ) I I CHAR (L?)  t 
PUT  SKIP  (?)  » 

READ  FILE(DIREC)  I NTO ( L I Nk ) KEY ( ASECODE > » 

CALL  LLIST (LINE) » 

END  I 

GO  TO  LAB? ( 6 1 < 
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RECORDS  FOR 
(COL ( 1 ) . A)  » 


SYSTEM  X */ 


(COL ( 1 ) * A ) I 


LAB6 ( 2 ) : /*  LIST  ALL  RECORDS  FOR  SYSTEM  X f/ 

PUT  EDIT ( * ENTER  SYSTEM  COOE*)  (COL(l).AM 
PUT  SKIP  (?) ; 

GET  EDIT ( ASECODE)  < COL ( 1 ) » A ( 7 ) ) ; 

ASECODE  = substrusecude.i.3)  1 1 *oooo* ; 

LAPftl:  READ  FILE(DIREC)  INTO (LINE)  KE Y ( ASECODE ) I 
CALL  LLIST (LINE) J 
DO  WHILE ( • 1 • B ) ; 

READ  FIlE(DIREC)  INTO(LINE)  KEYTO < ASECODE ) I 
IF  SUBSTR (ASECODE. 4. 4)  = *0000*  THEN  GO  TO  LAB1001 
CALL  LLIST (LINE) ; 

END  I 

GO  TO  L Ab? (01 5 

LAB6 (3) : /«*  LIST  SUBSET  0 F ALL 
PUT  EDITCENTER  SYSTEM  CODE*) 

PUT  SKIP  (?)  5 

GET  EDIT (ASECODE)  ( COL ( 1 ) ♦ A ( 7 ) ) I 
ASECODE  = SUBSTR (ASECODE. 1 .3)  I I ‘0000  *; 

LAB631 : PUT  EDI T ( *ENTtR  APPLICATION  CODE*) 

IF  PROMPT  = *Y*  I PROMPT  1 a *Y*  THEN  DO* 

IF  JENNY1  = *P»  THFN 

PUT  EDI T ( • B - BUDGET*. »E  - PROJECT  ENGINEER*. 

•H  - PROJECT  MANAGER».»0  - 104  REPORT*. 

•P  - PROCUREMENT* . *0  - PRODUCT  ASSURANCE' • 

* R - RECAP*. *S  - PROGRAM  SUMMARY*. 

•T  - TEST  • ) 

(COL  <5) , A)  ; 

IF  JENNY  1 = ?R*  THEN 

PUT  ED  I T ( • C -COMPTROLLER* »*B  - PLANS  4 ANALYSIS*. 

•P  - PROCUREMENT* , *E  - DEVELOPMENT  4 ENGINEERING*. 

' F - ASTIO'.'T  - TR ADOC • » • S - TECOM* * 

•Q  - PRODUCT  ASSURANCE*) 

( COL ( 5 ) .A) * 

END* 

PUT  SK IP  (?)  5 

GET  EDIT ( APLICODE?)  ( COl ( 1 ) « A ( 1 ? ) ) * 

CALL  ER_PAGE? 

IF  APLICODE?  = * • THEN  GO  TO  LAB631* 

LSTR  = INDEX  (APLICODE?.  • •)  -U 
APLICODE  = SUBSTR ( APL I CODE? . 1 » LSTR ) * 

READ  FILE(DIREC)  INTO(LINE)  KE Y ( ASECODE ) * 

CALL  LLIST (LINE) I 
DO  WHILE ( • 1 *B>  5 

READ  FILE(DIREC)  I NTO ( L I NE ) KEYTO ( ASECODE ) * 

IF  SUBSTR(ASEC0DE.4,4)  = *0000*  THEN  GO  TO  LAB2<6)» 
IF(INDEX(SUBSTR(LINE.V. 11)  .APLICODE)  -=  0 4 
( INDEX (SUBSTR(LINE.R.LSTR) .APLICODE)  -=04 


JENNY3  = 
JENNY3  = 


* N • ) 

»P*  ) 
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THEN  CALL  LUST  (LINE)  $ 

end; 


« GO  TO  LAB2(0) ; 

LAB6U):/*  NO  LISTS  REQUIRED  */ 
go  to  labioo; 


LAB?  ( 7)  : /*  FIND  A RECORD  */ 

PUT  ED  I T ( • FIND  DOES  NOT  WORK  IN  THIS  VERSION  OF  SCHEDULE.*) 
(COL (5) .A) I 
PUT  SKIP (2) I 

GO  TO  labioo; 

LAB2 ( 8) : /*  NO  MORE  CHANGES  REQUIRED  */ 

CLOSE  FILE (DIREC) ; 

return; 

ER_PAGE:PROC; 

CALL  NEwPAG; 

call  tsend; 

return; 

end  er_page; 

ENO  update; 
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WINDOW : PROC  * 

dcl  ans  char ( bo  ) var* 

OCL  (LLIMIT.ULIMIT.STYH.NOYR)  FIXED  DEC15.2)  EXTERNAL! 
DCL  DUMMY  FIXED  DEC<5.?)* 

DCL  (LOwER.  UPPER)  CHAR(R)* 

DCL  L AB  ( 0 : <► ) LABEL* 

I = 0* 

ON  CONVERSION  BEGIN* 

PUT  EDI  T ( * YOUR  INPUT  mi  AS  IN  ERROR*) 

(COL ( 1 ) • A)  t 

PUT  EDIT (ONSOUHCE)  (COL < 1 ) .A)  I 

put  edit ('Please  re-enter*) 

( COL ( 1 ) .A) * 

PUT  skip  (?)  * 

REVERT  CONVERSION* 

GO  TO  LAB ( I ) * 

END* 

L AB ( 0 ) : °UT  EDIT ( 'ENTER  LOWER  TIME  LIMIT*) 

(COL ( 1 ) . A) * 

CALL  FORMDJ 
FORMD : PROC  * 

PUT  EDIT l • / * * /*)  (COL(l).A)* 

PUT  SKIP  1?)  * 

CALL  RF VERSE  * 

GET  EDIT(ANS)  (COL ( 1 ) . A (80) ) * 

RETURNS 
END  FORMD? 

GET  STRING(ANS)  EDIT(LOwEH)  ( X ( 1 ) . P • 99A AAAA99 • ) * 

CALL  FDATE(LO*ER. DUMMY. 0) * 

STYR  = DEC (SUHSTR (LOWtR.8.2) ) * 

LLIMIT  = DUMMY  - 1* 

I = 1* 

L AB  ( 1 ) : PUT  EDITPENTER  UPPER  TIME  LIMIT*) 

( COL ( 1 ) .A)  * PUT  SK I P ( 2 ) * 

CALL  FORMD* 

GET  STRING(ANS)  EDIT(UPPER)  ( X ( 1 ) , P • 99AAAAA99 * ) I 
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Maintenance  Subroutine  Listings 


i 


’ LAUQEUA . COMPRS . CNTL 1 

00016  ^LAUQEIB  JOB  C 3E02 > L060 > 3 / 4 ) > 1 I NOEX  SEG  JOB',CLASS*K 

00020  /"  MOT I FY*LAUGEUA , REG I ON* 1 00K 

00021  /*ROUTE  PRINT  REM0TE8 

00036  //STEP l EXEC  PGM* I ESI SAM, PARM-COPY 


A 

-A  m , 

’♦ui*- 


®UJ/N 
«-*UJ  «-t 

Q *-« 

' I ' I 

SKTd 


I? 

i w-t  UJ  W-* 


Q(Oh£  ujto 

«g -I  9^ 

5 '3*-  UJ  ' 
*-uj~  ui*- 


» »-4  ? tH 


"'-•y  h v:  -•^c03’^tr> 

a.  n i u j<5>3  n —uj  m — 

uj_iCLrg*-uj_jQ2_ia 

UJOWhOZO  » y (_>  ■ 


KJQ  ' 
M £0  > o 

5*3- 

■%  w>4  O *"« 
,#N  • 
<L  * ■ UJ 


VUJ-«CO  H yUI»-  N Ulfr- 

'aoici-iffMOLaM 

_1  '^ODZCO  -3*-  -3 
O CQ  X ■»  3***flQ  ' Q CD  - > 
y Ll  UJ  CD  QU-X  'Cl  XQ. 
H N QU.X  ' N X ^ N XO 
ILCZ  N X^EXSEXO 
ffilt^EXUiU.XOU.X  ■ 


□ Ul»- 

'Qtlil 


)SU|U.XOU.X 
XIO I 30  N 


U.XE 
O M *-• 


VLU  — U) 

'Eqv 

OffiX  ' 
vkuai 

■ lou 

.'Suiui*-* 


x*8£2i2“p “82  x“8*!saii!S2 

Q«aomj-wji-*HjE  o»-<<rcn»-  aco  ■ f- 
2 w »-t-._iuj  n ouj  « 55  z *»-►*«- »-»-.3ui 

*-«UCC  II  Q CO  IJ  3 (0 13  3 (0  »-«C3 a ■ Z <1  * 0(0 

o;qu5  <*  ' a:  aaooacjo 


u 

*- 


«uaiigtf)iJ3WLOio  hoiiz 

£Qo5  a:  ' a;  aoi35 

ajQ  QL  '«o/'ao''fl)ajQ  a:  ' 

U j3n(5  U _J0(VJO~ 

*-  *-«  a L v>  a <r  a uj  a o ui  »-  *-«  o cl  to  oc 

§3  'Eouja  'UQ  '0131  '£OUi 
O-UI  'O  >3  ><EJ“0  >UJ  'O 


i2j^u  -!c  fr  > cozii: 

O0M  'UJOJUJQJ  WQl 
OQQJ(-U>hO>UOQOi 

D>  n f-o 


v »-•  Q»<iC 
NIX  '^3) 

kssis 

«HQOOI 
qwT  yiui- 

'X»-  > 

O O^ffl  ' 
-JOJ  'QIlX 
lL  U.  X ' R X 
3 ■ X^EX 
OEXUU.  X 

ipfcjfsai 

'<0y(0  ■ 

!s5#$ 

8'<rQ^ 
'■'Km* 

i£8ffi298 

i uj  'O  >3 


8Q0QQj(-0>hU)-(J0 

k~  o>  n »-o  h i-ouiB 
ao.QKuziLvZ4vX  gaoi 
QOQQ.y(/)oIinoIuj  SoSi 

t v O N □ vUJOvbJ  ►- 

CO  (M  H o <&&  5 


xm**' 


5 JL’ 

gg§»5i 


>*  UJQ_I 

'8s!V«S 

:8£8|&* 
O i Oy UJ 


*•  3”  >*  h>->  )- 

(0(0  CO  03(0(0  (O 

\\\\\\\\\\\\\\\\\\\ 

\\\\\\\\\\\\\\\\\\\ 


\ \ \ \ \ \ \ 

\ \ \ \ \ \ \ 


C-2 


•LAUQEUA.SCH.CLISTC 


SCH.CLISTCLIST)’ 


* LAUQEUA . SC H . CLISTC RESTORE  > 1 
00010  PROC  1 NAME  SPACEC 1 > OISKX OFSE01  ) 
00020  CF  DA< 1 LAUQEUA . COMPRS . CHTL * > 

00030  CO  WEL3 . CNTL 


OCFILE 


ADDD.PLI 


FORM. FORT 
GRAP.PLI 
LLIST.PLI 
MASTER. PLI 
NEW. PL I 
NEW1.PLI 
REPORTS. PLI 
S. CHANGE. PLI 
SSLIP.PLI 
TYREPT.PLI 
UPDATE. PLI 
WINDOW. PLI 
A.OCFILE.PLI 
FDATE.PLI 
RDATE.PLI 
REVERSE. PLI 


Figure  3.1  SCHEDULE  Subroutines 
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Figure  3.2  SCHEDULE . CL I ST  Listing 
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ARGUMENT 

NAME 

VALUE 

RESULT 

Jenny  1 

P 

Prints  Project  Manager 
Application  Code  Compting  List 

Jenny  1 

R 

Prints  R&D  Command  Application 
Code  Prompting  List 

Jenny  1 

N 

Disable  Application  Code 
Prompting  List  Printing; 

Default  Value 

Jenny  2 

C 

Enable  Cross  System  Reporting 

Jenny  2 

N 

Disable  Cross  System  Reporting 
Default  Value 

Jenny  3 

P 

Enable  Position  Dependent 
Application  Code  (not  available) 

Jenny  3 

11 

Disable  Position  Dependent 
Application  Code  Default  Value 

Jenny  A 

M 

Enable  Lines  Per  Page 

Jenny  4 

N 

Disable  Lines  Per  Page;  Default 
Value 

Jenny  5 

W 

Enable  Windowing 

Jenny  3 

N 

Disable  Windowing;  Default  Value 
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Figure  3. A Sample  Standard  Title  Dataset  Listing 
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Figure  3.4  Sample  Standard  Title  Dataset  Listing  (cont'd) 
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Figure  3.4  Sample  Standard  Title  Dataset  Listing  (cont’d) 
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Figure  3.4  Sample  Standard  Title  Dataset  Listing  (cont'd) 
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Figure  3.4  Sample  Standard  Title  Dataset  Listing  (cont'd) 
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Figure  3.4  Sample  Standard  Title  Dataset  Listing  (cont’d) 
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Figure  3.4  Sample  Standard  Title  Dataset  Listing  (cont'd) 
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Figure  3.4  Sample  Standard  Title  Dataset  Listing  (coat'd) 
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